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FOREWORD ■ 


This report volume is the programmer’s manual developed during a study of probabilis- 
tic systems modeling and cost/performance methodogies for optimal assignment of space 
vehicles and other program elements to advanced space missions. This study is being 
performed for the National Aeronautics and Space Administration under Contract 
NAS2-5202, and is monitored by Mr. R. E. Slye and Mr. Harold Hornby of the Advanced 
Concepts and Missions Division of the Office of Advanced Research and Technology. 

Individuals of Lockheed Missiles & Space Company who contributed to this study are 
L. F. Fox, project leader; C. J. Golden, key technical member; andW. T. Lew. 
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SUMMARY 


This document is Volume 2 of a two volume series entitled Probabilistic Systems 
Modeling and Cost/Performance Methodologies for Optimization of Vehicle Assignment. 
This volume is a programmer’s manual for the probabilistic optimal assignment and 
budget smoothing model described in Volume 1. 

This volume contains appendixes that provide model input requirements, a sample case, 
flow charts, and a program listing. At the beginning of each appendix, descriptive de- 
tails and technical comments are provided to indicate any special instructions applicable 
to the use of that appendix. In addition, the program listing of Appendix D includes 
comment cards that state the purpose of each subroutine in the complete program and 
describe operations performed within that subroutine. 

Appendix A, Input Requirements, provides details on the many options that adapt the 

program to the specific needs of the analyst for a particular problem. 

« 



Appendix A 


INPUT REQUIREMENTS 

STATISTICAL AS SIGBMMT/SMOOTHING PROGRAM 


A.l GENERAL 

A complete glossary of input terms and detailed format requirements are 
included in this appendix. Variable names are listed by order of input in 
corresponding sections of use to make the glossary easier to use than an 
alphabetical listing. Comments are also included which describe either 
external or internal restrictions associated with the variable. 

Figure A-l illustrates the basic data deck layout for this program. Any 
section may be eliminated if there are no associated data. However , 
either a blank card must be inserted in place of the section or the control 
card must reflect no input for that section. If the control card is coded 
so no data are input for some section, then values input for the preceding 
case are automatically supplied. Otherwise, if no data are desired for any 
one section, then a blank card must be input to replace that section. 

Stage performance data to be used in the stage -matching screen may be 
eliminated entirely, including the final blank card, if the stage -matching 
screen is not to be used. If this screen is used, then the stage cards 
must be ordered so that all stages in Class 1 precede those in Class 2, 
which precede those in Class 5, which precede those in Class t-. Stages not 
included in the matching screen follow those in the above classifications. 
If the matching screen is not used, the order of cards -within each section 
is unimportant. 

Constraint and budget level cards are input to the SMOTHS subroutine of 
this integrated program. The last data card input in this BUDGET Section 
is followed by a card containing only an asterisk in the first column. 
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Figure A-i Data Deck Layout 















Then the control card for the next set of data appears unless there are 
no more data cases to follow. In this latter case^ a blank card follows 
the asterisk card in order to terminate the run under normal circumstances. 


A. 2 INPUT POEM AND DEFINITIONS 


Card Variable 

Column Name Format Description and Comments 

Control Card 

1-3 LP 13 Code for logic printout 

If LP > 2 Print decision numbers 
for each vehicle 

If LP > 1 Print logic associated 
with algorithm 

If LP = 0 No logic output 

k - 6 NOPT 13 Code for mission/vehiele compat- 

ibility screen 

1 - AV vs. payload weight + 

availability- + a priori 
assignment 

2 - Code 1 plus use stage -matching 

screen 

3 - All criteria 

7-9 MOS 13 Method of solution desired 

MOS = 0 Optimize assignment and smooth 
resulting budget 

MOS = 1 Input assignment and 

smooth resulting budget 

MOS = 2 Optimize assignment and 
output associated costs 

MOS = 3 Input' assignment and 

print out associated costs 

10 - 12 NSOL 13 Number of solutions to be output in 

ascending order of total program 
cost 

A-3 



Card 

Column 

Variable 

Name 

Format 

13 - 15 

MSOL 

13 

16 - 18 

MITR 

13 

19 - 21 

ILY 

13 

22 - 2h 

MYRS 

13 

25 - 29 

TREE 

F5-1 

3 

1 

0 

GUESS 

F12.2 

b2. - hk 

GR0 

F3.1 

45 - 1*9 

SL0 

F5.1 


67 

-.68 

IP 

12 

69 

- 70 

IG 

12 

71 

- 72 

- IFM 

12 

73 

- 74 

- ' II 

12 

75 

- 76 

IM 

12 

77 

- 78 

ISD 

12 

79 

- 80 

IV 

12 


* If > 0, new input for this case 
If < 0, use data from previous 
A-k 


Description and Comments 


MSOL = 1 bypasses time-saving 
feature in algorithm 

Maximum number of allowed iterations 
between SMOTHS and ASIGNS 

Last two digits of initial calendar 
launch year of mission model 

Mission model- duration in years 

Last 2 digits of calendar year for 
SMOTHS 

Upper bound- for total launch vehicle 
program (saves storage space if real- 
istic value). If GUESS = 0.0, then 
GUESS is assigned a value 1.0 El 5 

Annual economic growth factor, e. g. , 

7$ inflation/year; GR0 = 7 • 

Annual Sustaining Costs less than 
SL0 are left out of the basic algor- 
ithm and treated later in determining 
the optimal assignment. MS0L - 0 
option must be specified for implemen- 
tation 

Code for pad input* 

Code for stage input* 

Code for shared cost group input* 

Code for integration cost input* 

Code for mission input* 

Code for special program data* 

Code for vehicle input* 



Card 

Columns 


Variable 

Name 


Format 


Description and Comments 


Stage Information (input only if IG > 0) I = 1, NSTG < 50 


1-2 

K0DS(I) 

12 

Reference number of stage on card I 

k - 7 

STG(l) 

a4 

Uame of stage on card I 

8 - 13~ 

SR(I,J) 

3F6.3 

Recurring cost for first unit of 


■ 


stage on card I 

l4 - 19 

J = 1,3 


J = 1 Hardware 

20 - 25 



J = 2 ETR launch support 




J - 3 WTR launch support 

26 - 30*" 

H.C(I,J) 

3F5-3 

Recurring cost learning curve percent 




for stage on card I in decimal form 




(e.g., ,95)t • 

31 - 35 

-J = 1,3 


J = 1 Hardware 

36 - 4 o_ 



J = 2 ETR launch support 




J = 3 WTR luanch support 

44 - 49 

SNR (I) 

F6.3 

' Development cost of stage on card I 

50 - 55 

STS(l) 

f6.3 

Sustaining cost of stage on card I 

59 - 61 

LSA(I) 

13 

Last year stage on card I is available^ 

62 - 64 

HBY(l) 

13 

Batching duration In years for stage 

- 



recurring cost 

65 - 67“ 

NFS(l,j) 

4i3 

K0DEF of the shared cost groups (up 




to 4) to which stage belongs 

68 - 70 

J * 1,4 



71 - 73 




74 - 76 _ 





t If percent is 100, then input zero for more efficient program operation 
# 1 corresponds to year IlY 

+ If available through mission model, any number > MYRS may be input. If 
number < MYRS is input then this termination' date is maintained through 
all iterations. 



Card 

Column 

Variable 

Name 

Format 

78 

79 
8o. 

mode(i ; j) 
J = 1,3 

311 

Second Stage Card 


5 - 9 

SUSLS(I,J) 

2F5-0 

10 - i4 

J = 1,2 


15 - 17 

NU(l) 

13 


l8 

- 23 

UPP(l) 

F6/2 

2b 

" 29 . 

UPPXX 

f6.i) 

30 

- 32 

PXX 

F3.2) 

33 

- 38 

RPLO(l) 

F6. 0 

39 

- 4o 

YDS (I) 

F2.0 


* If - 0, learning curve type input 
If = 0, jump type input 


Description and Comments 

Code to indicate type of input for 
recurring cost -of stage on card I* 

J = 1 Hardware 
J = 2 ETR launch support 
J = 3 WTR launch support 


Sustaining cost at launch facility for 
Stage I, not to he duplicated at each 
pad. 

J = 1 ETR 
J = 2 WTR 

Number of reusable units in initial 
investment of component I 

NU = 0 unit is expendable 

NU > 0 estimate .used by program directly 

NU < -2 estimate used by program for 

first iteration, then subroutine 
REUSE calculates estimate for NU 

Unit purchase price • 

PXX$ tail such that using the lognormal 
distribution, prob. (UPP(l) > UPPXX) = EXX 
(e.g., PXX = .05) 

Return payload weight in lbs for this 
component.** (Vehicle return payload = 
orbiter return payload) 

Duration in years over which (3 function 
distributes development cost for stage 
on card I. (Leave blank if SNR(l) = 0 . 
Input necessary if SNR ^ 0) 


** Any value >1.0 may be input to indicate payload return capability 
besides crew. 

A -6 



Card Variable 

Column Maine Format Description and Comments 


^1 - IST(l) 


12 Last 2 digits of calendar start date 

for Stage Development Program 


h-3 - 44 DSFX(NSDC*) 12 Duration in years < 12 for any 

miscellaneous (fixed or development) 
program associated with stage on 
card I (e. g. , Run out costs). (Stand- 
ard Development costs are distributed 
by a Beta function - any other develop- 
ment distribution may be input under 
this special category. ) 


45 

- 49" 

SRXX(j) 

3P5-: 

50 

- 54 

J = 1,3 


55 

" 5 9_ 



60 

- 62 

XX(1) 

F3.2 

63 

- 68 

SERXX 

f 6 .i 

69 

- 71 

XX(2) 

F3.2 

72 

- 77 

STSXX 

F6.1 

73- 

r 80 

xx(3) 

F3-2 


XX$ tail such that 

prob. (SR(j) > SRXX( J ) ) = XX(l) 

for J = 1,3 


Percent tail above in decimal form 
(e.g . , .05) ■ 

XX$ tail such that 

prob. (SMR(l) > SMRXX) = XX(2) 

XX$ tail such that 

prob. (STS(l) > STSXX) = XX(3) 


If M0DE(l,j) ^ 0 for some J, require following Jump Type Input Card for Each 
such J. ’ 


5 

- 14 

SRj(LX,l) ' 

F10.3 

Total recurring cost for up to POJ 
number of stages 

15 

- 24 

SRJ(LX,2) 

F10.3 

Slope of line defining total recurring 
cost for over POJ number of stages 

25 

- 3^ 

srj(lx,3) 

Flo. 3 

Y- intercept of. line defining total • 
recurring cost for over POJ number 
of stages 

35 

- 44 

poj(lx) 

F10.3 

Dumber of stages at which function 
defining total recurring cost changes 
slope 


* DSDC = Dumber- of special development costs < 50 
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Card Variable 


Column 

Name 

Format 

Description and Commments 

45 

- 54 

SRJXX 

F10.3 ) 

PXX$ tail such that 

55 

- 57 

PXX 

F3.2 j 

prob. (SRj(LX,l) > SRJXX) = PXX 

If NSFX(NSDC) j 0 read 

in following 

card. 

1 

- 3 

nrfx(hsdc) 

13 

Start date for special development 
cost associated with stage on card 
I. (Referenced to IST(l)) 

9 

l4 

- 8 ~ 

- 13 

- 18 

RXD(J\,NSDC) 

12F5.2 

Special development cost to be spent 
in calendar year 

1900 + IST(I-) + NRFX(HSDC) - 2 + J 



(input distribution) 

19 

- 23 




24 

- 28 




29 

- 33 

J = 1,12 


- 

3b 

- 38 

• 



39 

- 43 




bk 

- 48 




49 

- 53 




54 

- 58 




59 

- 6 1 




64 

- 69 

BXDXX" 

f6.i) 

PXX$ tail such that 

70 

- 72 

PXX 

F3.2J 

12 

, prob( Y RXD(J,USDC) > RXDXX) = PXX 





j=l 

Last Stage Card must be 

followed by 

a blank card. 


Shared_Cost_Group_Cards (input only if IFM > 0) I = 1, HFAM < 4o 


1 

- 2 

K0DEF(J)=I 

12 

Reference Humber of group on card J 

4 

- 7 

FAM(l) 

a4 

Name of group I 

8 

- 17 

fmmr(i) 

F10.0 

Development cost of group I 

18 

- 27 

FMSUS(l) 

F10.0 

Sustaining cost of group I 
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Card 

Column 


Variable 

Name 


Format 


Description and Comments 


Last Group card must be followed by a blank card. 


Integration Cost Cards (input only if II > 0) I = 1, NCI < 30 


3 

- 5 

nfml(i) 

13 

KODEF of shared cost group which is 
lower member of integration pair I 

6 

- 3 

NFMJ(l) 

13 

KODEF of shared cost group which is 
upper member of integration pair I 

9 

- 18 

RINT(l) 

F10.0 

Recurring cost for first unit of 
integration I 

19 

- 28‘ 

ELCIHT(l) 

F10.0 

Recurring cost learning curve per- 
cent for integration I 

29 

- 38 

dint(i) 

F10.0 

Development cost of integration I 

39 

- 48 

SIKT(l) 

F10.0 

Sustaining cost of integration I 

49 

- 52 

XDl(l) 

F4.1 

Development duration in years for 
6 distribution (Leave, blank if 
DHtfT(l) = 0. ) 

53" 

- 55 

KST(l) 

13 

Last 2 digits of calendar start 
date for integration development 
program - input necessary if DIBIT 
or SIFT ^ 0 

56 

- 58 

NSFX(NSDC) 

13 

Duration in years for any miscell- 





aneous fixed or development program 
associated with integration I. 
(Distribution input on following 
card). 

59 

- 68 

SIBITLS(l,j) 

2F10. 0 

Sustaining cost at launch facility 
for integration I not to be duplicated 
at each pad. 

69 

- 78_ 

J = 1,2 


J = 1 ETR 





J = 2 WR 

Second Integration Card 



1 

- 10 

rintxx 

‘ F10. 0) 

XX(l)$ tail such that 

11 

- 13 

XX(1) 

F3.2) 

prob. (RIBIT(l) > RIBFTXX) = XX(l) 
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Card 

Column 

Variable 

Name 

Format 

Description and Comments 

l4 - 23 

DINTXX 

FlO.o) 

XX(2)$ tail such that 


24 - 26 

XX(2) 

F3-2) 

prob. (DINT(l) > DINTXX) 

= XX(2) 

27 - 36 

SINTXX 

FlO.o) 

XX(3)$ tail such that 


37 - 39 

xx(3) 

F3-2 J 

prob. (SINl(l) > SINTXX) 

= XX(3) 


IP NSFX(NSDC) / 0 read following card. 


1 - 

3 

nrfx(hsdc) 

13 

Start, date for Special Development 
cost associated with integration I. 
(Referenced to KST(l)) 

4 . 

8~ 

rxd(j,nsdc) 

12F5.2 

Special Development cost to be spent 

9 - 

13 

J = 1,12 


in calendar year 

1900 + KST(l) + nrfx(nsdc)- 2 + J 

l4 - 

l8 



(input distribution) 

59 - 

63, 




64 - 

69 

RXDXX 

F6.l) 

FXX$ tail such that 

70 - 

72 

PXX 

F3-2) 

12 


prob( ^ RXD(j,NSDC) > RXDXX) = PXX 
a=i 


Last Integration card must be followed by a blank card. 


Pad Cards (input only if IP > 

0)1 = 1 , 

NP < 30 

1-4 

KODEP(l) 

i4 

Number of pad complex on card I 

7-10 

PAD(l) 

a4 

Name of complex on card I 

11 - 15 

npered(i) 

F5-0 

Maximum number of launches/year /pad 
possible at complex I 


2nd - 6th cards needed for each pad complex (stage cost data, 2/card) (j = 1,10) 

3-4 NPSTG(l,<j) 12 KODE corresponding to Jth stage costs 

1 ^ _ of complex I 


A-ll 





Card 

Variable 



Column 

Name 

Format 

Description and Comments 

5 - 

9 “ 

PSTGD(l,J,l) 

F 5.0 

J stage development cost of first 

45 - 




pad in complex I 

10 - 

12 ~ 

ydps(i,j) 

F3.0 

Development duration in years for 

50 - 

52_ 



3 distribution 

13 - 

15~ 

mst(i, j) 

13 

Last 2 digits of calendar start 

53 - 

55_ 



date of PSTGD 

16 - 

20" 

PSTGS(l, J,l) 

F5.0 

jk * 1 stage sustaining cost of 

56 - 

6o_ 



first pad in complex I 

21 - 

25 ' 

PSTGD(l,J,2) 

F5-0 

J stage development cost of 

6l - 

6 5. 



second pad in complex I 

26 - 

30" 

PSTGS(I,J,2) 

F5.0 

.jkk stage sustaining cost of 

66 - 

70_ 



second pad in complex I 

31 - 

35] 

PSTGD(l,J,3) 

F 5.0 

th 

J stage development cost of 

71 •- 

75_ 



third pad in complex I 

36 - 

4o~ 

PSTGS(I,J,3) 

F 5.0 

stage sustaining cost of 

76 - 

8o_ 



third pad in complex I 

7 th - 9 th cards needed for each pad complex (family cost data, 2 /eard) (j ~ 1,5 

3 - 

4 ] 

MPEAM(I,J) 

12 

KODEF corresponding to J family 

k3 - 

44j 



costs of complex I 

5 - 

9 1 

EPAMD(X,J,1) 

F 5.0 

*fctl 

J family development cost of first 

45 - 

49J 



pad in complex I 

10 - 

12 I 

YDEP(I,J) 

F3.0 

Development duration in years 

50 - 

52J 



for 6 distribution 

13 - 

lfl 

lst(i,j) 

13 

Last 2 digits of calendar start 

53 - 

55j 



date of FFAMD - 

16 - 

20 “| 

PFAMS(l, J,l) 

F5.0 

"til 

J* family sustaining cost of 

56 - 

60J 



first pad in complex I 


fl _1 p 


Card 

Column 

Variable 

Name 

Format 

Description and Comments 

21 - 25 
6 i - 6\ 

EPAMD(l,J,2) 

F 5.0 

jk * 1 family development cost of 
second pad in complex I 

2 6 - 30 
66 - 70 

3 

HFAMS(l, J,2) 

F 5.0 

'fciil 

3 family sustaining cost of 
second pad in complex I 

31 - 35“ 
71 - 75. 

EPAMD(I,J,3) 

F 5-0 

J ^ family development cost of 
third pad in complex I 

36 - 4o~ 
76 - 8 a 

EFAMS(l,J,3) 

F5.0 

family sustaining cost of 
third pad in complex I 


10 th and 11 th cards needed for each pad complex (integration cost data, 
3/ card) (j = 1 , 5 ) 


9 

33 ■ 

- 11 
- 35. 

nftntl(i,.i) 

13 

KODEF of lower group correspondinj 
to dth integration cost of comple: 

57 

- 59_ 




12 

36 

- lb 

- 38 

NPHJTU(I,J) 

13 

KODEF of upper group correspondin* 
to J'fch integration cost of comple: 

60 

- 62 . 




15 

39 

- 32~ 

- 56 

PINTS (l,J,K) 
K = 1,3 

3F6 . 0 

ttl 

3 integration sustaining cost 
ofK^ h pad in complex I 

. 63 

- 8 o_ 




Last 

Pad 

Card must be followed by Blank 

Card. 

Mission Data Card - (input' only if IM > 0) 1=1, NMIS < 50 

1 

- 2 

KODEM(l) 

12 

Reference number of mission on 
card I 

3 

- 8 

HAME(l) 

A 6 

Name of mission on card I 

9 

- 12 

PB(l) 

F4.2 

Priority of mission on card I 

15 

- 16 

nsyr(i) 

12 

Number of sustaining years 
required for SUS(l) after last 
launch year 


A-13 





Card Variable 

Column Name Format Description and Comments 


17 - 18 NYRSFX(l) 12 

19 - 25 VLR(l) F7-0 

26 - 28 RHM(I) ' F3.0 

29 - 31 TAMT(I) F3.0 

32 - 38 WER(l) F7.0 

39 -.40 NTRIP(l) 12 

hi - SO MISN(X,J) 2012 

J = ljMXRS 


Duration in years of any fixed 
or special development cost 
distribution associated with 
mission KODEM(l) 

Characteristic velocity required 
in fps to accomplish mission on 
card I 

Return payload weight in lbs 
required by mission on card I* 

Number of days orb iter required 
for mission completion (only 
required if NU < 0 for some 
reusable stage). 

Payload weight in lbs required 
for mission' on card I 

Maximum number of launches 
allowed to carry WPR(l) lbs into 
orbit. NTRIP(l) =0 is same as 1. 

Number of launches for mission 
on card I -in calendar year 
J + 1900 + XLY - 1 with WFR 
payload at each launch 


Second Mission Card 


3 

12 

elr(i) 

F10.2 

Payload recurring cost for 
mission KODEM(l). 

13 

- 22 

sus(i) 

F10.2 

Payload sustaining cost 

23 

- 32 

C(I) 

F10.2 

Payload development cost 

33 

- 37 

ydel(i) 

15 

Duration in years over which 
development cost is to be 
distributed by Beta Function 

38 

- 42 

bdist(i,l) 

4F5-3 

Input recurring cost distribution 

43 

- 47 

L = 1,4 


for ELR in decimal form (e.g. , 
KDIST(I,1) = .05) 

48 

- 52 




53 

- 57_ 





^ Currently, any value >1.0 indicates that mission I is to be performed 
only by vehicles whose upper stage has RPLO >1.0. 


Card 

Column 

Variable 

Name 

Format Description and Comments 

58 

- 67 

HMD(I) 

F10.2 

Maximum diameter of payload for 
mission on card I 

68 

- 69 

NELS(l) 

12 

Code for payload stabilization 
requirement 





0 - Wo requirement 

1 - Must be spin stabilized 

2 - Must not be spin stabilized 

70 

- 71 

MR(I) 

12 

Code for man-rating requirement 
for mission on card X 





0 - Wo requirement 

1 - Must be man-rated 

72 

- 73 

LTR(l) 

12 

Code for launch site of mission 





1 - ETR 





2 - WTR 

7 1 *- 

- 75 

MER(I) 

12 

Wumber of restarts required for 
mission 

76 

- 77 

IS(I) 

12 

Last 2 digits of calendar start 
year for development cost HLD(l) 

78 

- 80 

IVEHEA(l) 

13 

A priori vehicle assignment for 
mission on card I 


•* 



If no vehicle assigned - 0 input; 
KODEV of vehicle input otherwise 

Third Mission 

Card 



1 

11 

- 10 

- 13 

ELBXX 

XX(1) 

FIO.O] 

F3.2j 

| XX(l)$ tail such that 

J prob(ELR(l) > ELRXX) = XX(l) 

lb 

- 23 

cxx 

FlO.o) 

1 Same for c(l) 

2 b 

- 26 

XX(2) 

F3*2 j 

1 

27 

- 36 

SUSXX 

F10. 0 ) 

1 Same for SUS(l) 

37 

- 39 

XX(3) 

F3.2] 

1 


A-15 


Card 

Column 


Variable 

Name 


Format - 


Description and Comments 


If NYRSFX(l) 0 read following card. 


1 

- 3 

NSTKFX(l) 

13 

Start date for special development 
cost associated with mission KODEM(l) 
referenced to IS(l) 

4 

i i 

H 03 

1 

EFIXD(J,I) 

12F5.2 

Special Development cost to be spent 
in calendar year 

9 



1900 + IS(l) + NSTRFX(l) - 2 + J 

i4 

- l8 

» 

it 

H 

V* 

fo 


(input distribution) 

59 

• 

- 63_ 




64 

- 69 

RXDXX 

f6.i) 

PXX$ tail such that 

TO 

- 72 

PXX 

F 3 . 2 J 

12 


Prob( ^ KETXD(j,l) > RXDXX) = PXX 
0=1 


Last mission card must be followed by a blank card. 


Special_Program_Data_Card (Do launch associated with program) - Input only if 


ISD >0, I = 

1, NSPR < 6 



1 - 3 

KODESP(l) 

13 

Code number for Special Program (must 
be larger than 100 ) 

4 - 9 

NAME(l) 

A6 

Name of Special Program on card I 

10 - 19 

C(I) 

F10.2 

Development cost associated with 
program (distributed by Function) 

20 - 24 

YDEL(l) 

15 

Duration in years of Development 
program 

25 - 26 

IS(I) 

12 

Last 2 digits of start year for 
development cost c(l) 

27 - 36 

SUS(l) 

F10.2 

Annual sustaining cost associated 
with program 

37 - 38 

NXRSST(l) 

12 

Duration in years of sustaining 
program 
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Card 

Variable 



Column 

Name 

Format 

Description and Comments 

59 

- 4o 

NYRSFX(l) 

12 

Duration in years of any fixed 
cost which does not have a (3 
distribution 

ill 

- 50 

CXX 

F10.2) 

XX (l)$ tail such that 

51 

- 53 

XX(1) 

F3-2) 

Prob(c(l) > CXX) = XX(l) 

5^ 

- 63 

susxx 

F10.2) 

XX ( 2 )^ tail such that 

64 

- 66 

XX(2) 

F3.2) 

Prob(SUS(l) > SUSXX) = XX(2) 

If NYRSFX(l) f 0 read following card. 


1 

- 3 

NSTRFX(l) 

13 

Start date for fixed cost 
referenced to IS(l) 

4 

- 8 “ 
- 13 

rfixd(j,i) 

J = 1,12 

12F5-2 

Fixed Cost to be spent in 
calendar year 

9 


1900 + IS(l) + NSTKFX(l) - 2 + J 

l4 

- 18 




59 

- 6 3_ 




64 

- 69 

’ EXDXX 

F 6 .l) 

PXX$ tail sucfcrthat 

70 

- 72 

PXX 

F3.2) 

12 





Prob( £ KFIXD(j,l) > EXDXX) = PXX 





J =1 

Last 

Special -Program Data 

card must be followed by a blank card. 

Vehicle Data Card (input only if IV > 0) J 

= i, uv < 60 

1 

- 8 

VEH(I, J) 

412 

"til 

KODS of stage in I position. 



I = 1,4 


where 1=1 corresponds to 
booster, for vehicle on card J 

9 

- 21 

Bl(j) 

E13-6 , 

1 Payload vs. characteristic velocity 
1 curve constants for performance 

22 

- 54 

B2(J) 

E13.6 ' 

< 

evaluation of vehicle on card J. 
PL = EXP(B1 - B2*V - B3/(B4 - V)) 

35 

- 47 

B3(J) 

E13 .6 | 

and V = Excess Velocity = Total 
Characteristic Velocity-Circular 

48 

- 60 

b4(j) 

E13.6 

Velocity at 100 n.m. 
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Card 

Column 

Variable 

Name 

Format 

Description and Comments 

79 - 80 

KODEV(J) 

12 

Reference number of vehicle on card J 


2nd Card needed for each vehicle. 


b - 5 

HVS(j) 

12 

6 - 7 

MRV(J) • 

12 

8 - 9 

NRp(j) 

12 

10 - 12 

npad(i,j) 

13 

13 - 15 

• NPAD(2, j) 

13 

l6 - 18 


13 

19 - 21 

NYP(2,J) 

13 

8o 

JKEY 

11 


A-l8 


Code for stabilization of vehicle 
on card J 

1 - Is gpin -stabilized 

2 - Is not spin stabilized 

Code for man-rating of vehicle on 
card J 

0 - Is not man*-rated 

1 - Is man-rated 

Number of restarts possible for 
vehicle on card J 

< 

KODEP of pad complex at ETR from 
which vehicle J can be launched 

KODEP of. pad complex at WTR from 
which vehicle J can be launched 

*bli 

1st year J vehicle can be flown 
from ETR 

i.1, 

1st year J vehicle can be flown 
from WTR 

Code for recurring cost distribution 
for vehicle on card J 

JKEY = 0 - standard distribution 
is used 

1st year of distribution = .05 
Recurring cost 

2nd year of distribution = .20 
Recurring cost 

3rd year of distribution = .50 
Recurring cost 

(Continued' on following page) 


Card 

Column 


Variable 

Name 


Format 


Description and Comments 


4th year of distribution = .25 ' 
Recurring cost = Launch year 
generating this recurring cost 

JKEY = 1 - .Distribution is to ' 
be input on following card 


Optional 3rd card for each vehicle (input only if JKEY ^ 0). 

ALPl(l, j) 4F5-2 Input Recurring cost distribution 

for vehicle on card J in year I 
I as 1,4 where 1=4 corresponds to year 

of launch 


Last vehicle card must be followed by blank card. 


4 - 8 
9-13 
14 - 18 
19 - 23 


Stage Performance Cards (input only if I'TOPT = 2 on control card) I < MSTG < 4o 


1 

- 4 

kode(i) 

l4 

5 

- 9 

nst(i) 

15 

10 

- 19 

THRT(i) 

F10.0 

20 

- 29 

UlAM(l) 

F10. 0 

30 

- 39 

tsl(i) 

F10.0 

4o 

- 49 

leut(i) 

F10.0 

50 

- 59 

WTFU(l) 

F10.0 

6o 

- 69 

WTIM(l) 

F10.0 

TO 

- 79 

ISP(l) 

F10.0 


Reference number of stage on 
card I (used to check order of 
cards ) 

Classification of stage on card I 

Stage thrust 

Stage diameter 

Stage sea-level thrust 

Interstage length required to 
clear engines 

i 

Stage fuel weight 
Stage total inert weight 


Stage vacuum specific impulse 


Last Performance card must be followed by a blank card. Eliminate blank 
card if NOPT £ 2. 


•Reusable Stage Cards (One card required for each stage I with input negative 

MJ(l)). (Mo special order required) 


1-2 


KODE(l) 


12 


Stage code number of corresponding 
reusable stage 


Card 

Column 

Variable 

Name 

Format 

5 - 6 

UQB(l) 

12 

7-12 

XLT(l) 

f6.i 

13 - l8 

tat(i) 

f6.i 

19 - 2k 

PLCtf(l) 

f6.3 


Description and Comments 

Code to identify type of stage 
NOB = 1 : BOOSTER 

NOB - 2: ORBITER 

Amortization Lifetime (number of 
launches per unit before replace- 
ment) 

Land to launch turn-around-time 
for first refurbishment (days) 

Learning curve percent for 
TAT in decimal form calculated 
from reference year (if zero is 
input, then PLCT is assumed to 
be 100) 


Last Reusable Stage card must be followed by blank card. (Blank card 
required even if no data are input in this section.) 


Budget Smoothing Bata is input in subroutine SMOTHS using a CALL INPUT 
statement. The following variables may be input at this time. 


Variable 

Name 


Description and Comments 


TITLE(l) Output page HEADING - if no input blanks are output. 

ko characters are allocated for storage, e.g. , 

TITLE = 'LUNAR OPTION' 


LEVEL(J) 

ISTRT 

IFIN . 
MAXITR 


YEARLY DESIRED FUNDING LEVEL (20 year maximum)/, e.g., 
LEVEL = 300., 375*, l8 x 300. 

FIRST YEAR of smoothing interval - referenced to 
TREE = 1 

Last year of smoothing interval - referenced to TREF 

Maximum number of iterations allowed per case in 
SMOTHS subroutine 


NCSTR Number of constraints on mission programs < 90 

NPROG(K) The reference number (K0DEM or K0DESP) of the 

mission being constrained 
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Variable 

Name 

Description and 'Comments 

kprog(k) 

The reference number (KQDEM or KODESP) of the 
constraining program or mission 

kode(k) 

Code number for type of constraint < 11 

cs(k) 

Constant associated with each constraint 

FIXED (I ) 

Yearly total fixed overhead costs (i = 1,20) 
If no input., is set to zero 

FMAxi 

bcln( 

Constants associated with EL0T2 - if no input they 
are set to 5000 . and 1500 . respectively 

ACCL 

Code for use of acceleration option - if no input 
it is set = TRUE 

EXT 

Code for use of extension option - if no input it 
is set = TRUE. If FALSE is input, these options 
will not be used. 


The next card contains an * in the first column. 


The next card is either a new control card for the next case- of data or a 
blank card so that the run is terminated under normal circumstances. 
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Appendix B 
SAMPLE CASE 


B.l DESCRIPTION 

The output from a sample case is presented in this Appendix. . Data are synthesized in 
order to test logical sequences. No significance should be attached to the values used. 
The listing includes a module map so that storage requirements are defined for each 
subroutine and common block. The program first prints out input data for easy refer- 
ence and to provide a check on punched data. If probabilistic data are input, then two 
lines of output are provided for each item; the first line represents the most likely 
values input while the subsequent line represents the expected values calculated by 
the program. 

Each section of output is described in detail: 

(1) STAGE COST DATA include stage title or identifying name, recurring cost 
of first unit and learning curve (LC) factor for hardware, ETR, and WTR 
recurring cost, respectively. If any stage has jump — discontinuous form of 
recurring cost for any of the above three types - then the following line 
provides relevant information. Development and sustaining cost for each 
stage are listed along with years of availability referenced to the initial 
launch year. Each stage may belong to at most four "shared cost groups," 
whose reference numbers are listed on the output. Each group number is 
referenced to the "Shared Cost Data" number which follow this section. 
"Batch Pact" defines the number of years over which vehicles may be con- 
sidered as produced in one period of time for learning curve purposes. A 
a reusable stage is designated as such and its expected unit purchase price 
is given with the input most likely value in parenthesis . 
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(2) SHARED COST DATA include data on each shared cost group which was 
referenced in (1) above . These groups may be families such as the Titan 
family or they may be subsystems, such as a guidance system shared by 
several stages. Total development cost for any vehicle equals the sum of 
the development costs for each of its component stages plus any development 
costs for any shared groups associated with these stages plus any integra- 
tion development costs required. As mentioned above, the first line 
represents the most likely value while the second line (if appropriate) repre- 
sents the expected value calculated by the program. 

(3) INTEGRATION COST DATA are always between '"families." If a specific 
stage-to-stage integration cost is desired, each stage must be put in a 
shared cost group by itself. Thus, many shared cost groups in (2) above 
will have no associated non-recurring costs. These groups will, however, 
be integrated with other shared cost groups, and this combination does have 
an integration non-recurring cost. 

(4) PAD COST DATA would normally be the section which follows. For simpli- 
city, no pad costs were included with this test run, but this section would 
list the complex reference number, identifying name and location, e.g. 

TITE represents Titan ETR complex, and the next entry would show the 
maximum number of launches per year per pad at this complex. All possible 
combinations of pad-related costs are listed with their respective values for 
each pad. 

(5) MISSION MODEL DATA include mission internal reference number, identi- 
fying name, total AV required, payload required in lb, priority value, 
launch site identification, (1 = ETR, 2 = WTR), and launch rate schedule 
by year. 

r 

The following page lists all most likely costs (modal) associated with each 
mission and then lists all the corresponding calculated. expected costs. Pay- 
load recurring costs (PLR) are distributed over a 4-year period by the follow- 
ing four fractions, where the last year is the year of launch. Development 
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costs (DEV) are included along with the development period and starting 
year. Sustaining costs (SUST) and total miscellaneous fixed costs (FIXED) 
are included for future reference . 

(6) SPECIAL PROGRAMS are listed by internal reference number and name. 
Development cost (DEV), start year and duration are included along with 
sustaining costs (SUST). Fixed costs, if any are input, are output by year. 
Both modal (input) and expected (calculated) values are output. 

(7) INPUT DATA TOTALS include total number of each input item along with 
other pertinent information from control card. 

(8) QUANTITIES BRANCHED UPON lists every non-zero, non-recurring cost or 
"budget option" which the algorithm will consider in the optimization process 
along with its availability status . The reference number listed is used in 
the optional logic output described in (11). 

(9) VEHICLE /MISSION CAPABILITY is a matrix of final vehicle-to-mission 
compatibility presenting the results of subroutines CAPBLI and AVAELI. 

Each vehicle is listed by stage components and internal reference number. 
The vehicle/mission number on the top line represents the mission-year 
combination number (NM) while the mission number only is given on the 
following line at the top of the matrix. 

(10) CHANGED QUANTITIES BRANCHED UPON is a section included only if 
reusable stages appear in the input. The number of units purchased is 
indicated and multiplied by the unit purchase price in order to determine 
the estimated investment cost for each reusable stage for that iteration. 

This investment cost is added to the actual development cost for use by 
the algorithm. In -general, these "budget option" quantities are the only 
ones from the list in (8) that will vary from iteration to iteration. 

(11) BRANCH AND BOUND NODE VALUES present optional information which 
enables the user to check the internal logic of the algorithm. Each node is 
given a reference number which it keeps until its associated total bound 
exceeds the value of a known solution. (**** represents a very large number, 
denoting an unfeasible combination) . The node number from which branching 
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is taking place is provided in the second column. The last new node to be 
generated at each branch is given the reference number of its parent node 
for continuity. The reference number of the cost item under consideration 
[see (8)] is listed in the next column along with the appropriate sustaining 
year for that node . (0 represents no development or sustaining for that cost 
item). The recurring, non-recurring, and total lower bounds are then 
provided so that each branch in the decision tree is represented . 

When a final solution has been found, it is designated a POSSIBLE SOLUTION. 
If it is identically the same as a previous possible solution, this fact is 
printed out and the newly found solution is discarded. Otherwise, if some 
pad costs and small sustaining costs were ignored by the algorithm, these 
extra costs' are computed and added to the lower bound, of the corresponding 
node . The values of these costs are printed out below the node information 
for the possible solution under consideration. When the optimal solution has 
been found - the least cost possible solution already investigated - this fact 
is designated on the following page. 

(12) SOLUTION. NUMBER 1 — the optimal launch vehicle for each mission-year 
combination is printed out as well as an array of mission information for 
easy reference . The "Number of Launches" represents the launch rate by 
year multiplied by the priority factor and the number of trips required by 
the associated vehicle to satisfy the mission payload requirements. 

Following the first solution is a description of the uncertainties associated 
with the total cost of this assignment. The lognormal parameters m and 
axe output along with the lognormal densities at selected points. The 
numbers in parenthesis are the corresponding normal densities. The 50 
percent uncertainty interval, with lower bound taken as the most likely value 
(mode), is also output. 

(13) Sections (11) and (12) are repeated until NSOL = 3 assignments have been 
found. The second and third assignments have added information output 
since the probability that those assignments cost more than preceding 
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assignments is output for various levels of correlation. The proper level 
of correlation, is determined by the analyst since he can determine how 
much increase in technology is required by each program. Two programs 
requiring approximately the same technological advance will have a high 
degree of correlation. 

(14) THE OPTIMUM SOLUTION HAS BEEN DETERMINED signifies the success- 
ful completion of the algorithm. If no significantly different second and third 
best solutions can be found, this fact will be output here and the program 
will continue using the optimal solution found. 

(15) Following the above selection of an optimal assignment, any input to sub- 
routine SMOTHS is automatically output as it appears on the data cards. 

The program constraints are then output — first the input constraints, then 
the calculated constraints. "Average" recurring cost data for each of the 
vehicles in the optimum assignment are calculated in VEHRC and output on 
the following page . Each vehicle is assigned a key number which is used 
internally and output with the associated stage component names defining 
the vehicle . 

(16) The breakdown of costs by program and type, and by program and year on 
the following pages, is essentially the same as for the original budget smooth- 
ing model. For example. Program 2 (PN - Program Number) has NAME 
MAPLSU for Manned Planetary Support. The development start date is 
1984. The program has no development (DEVL) costs and hence no develop- 
ment duration (YRS). Sustaining costs (SUST) start in year 1984 ( = START 

+ SS - 1.). They are spent for 0 (SD) years. Recurring costs start in year 
1987 ( = START + RS - 1. ) and last for 4 (RD) years. The distribution 
follows on the same line (e.g. , $130 M in 1987, $399.M in 1988, $456M in 
1989, and $409 M in 1990 ). On the following line fixed miscellaneous costs 
are similarly listed if any have been input for that program [e.g., fixed 
costs start in year 1971 (= START + RS - 1. ) and last for 5 years (RD) for 
Program Number 13] . The distribution follows on the same line of output. 
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More complete data on these entries are provided in reference 1. Programs 
associated with missions are output first. • For the selected sample case 
Programs 1 through 12 are mission related. Program 13 is a miscellaneous 
program having no associated launches, and the remaining programs are de- 
velopment or sust aini ng costs associated with launch vehicles. (There is 
only one such program for this test case. ) These last programs are identi- 
fied by the decision number used in the ASIGNS algorithm. A list of decision 
numbers, their associated values, and types of expenditure has been output 
previously for reference. 

(17) The section "Total Program Costs and Launch Vehicle Schedule" is output 
as in the original smoothing program with the following modification. 

Instead of printing the launch vehicle key name under its associated program 
and year of launch, the key number already output with each corresponding 
vehicle name is substituted for simplicity. Total program costs are output 
by year as they would actually be spent. 

(18) A plot follows this tabulated data showing actual yearly totals (*) and 
desired yearly level of spending (0). The modal value is plotted as an M 
while the upper value of the 50 percent uncertainty interval is designated 
by a U. ■ Fixed costs are plotted by an F. Normally under options MOS = 0 
or 1, the smoothed data are then output using the same formats. Only 
data input to SMOTHS directly from ASIGNS and the final smoothed data 
are output. Intermediate output is supressed. For this sample run, 

MOS - 2 was specified so no smoothing was performed. If no new case 
data are input, then the normal termination of the run is designated by 
END OF DATA - JOB COMPLETE. 

Any discrepancies in input data are noted and printed out as a warning to the user. 

The flow diagrams in Appendix C define all non- normal exits from the algorithm in 
CHOOZS. Each non-normal termination of a case is denoted by a printout of the 
qualifying reason. The program then reads in new case data, if available, and 
proceeds as normal. 



The sample case included in this Appendix required 0.69 minutes on the 360/67 
computer available at Ames Research Center, Moffett Field, California. Estimating 
run time is quite difficult for a new set of data since the number of solutions "close to" 
the optimum solution determines how large the decision tree will be and, -as a conse- 
quence, how much computer time must be expended. As a general rule, the computer 
time increases linearly with the number of missions in the mission model and expon- 
entially with the number of decision items determined by the stage, shared group, 
integration, and pad cost input. 

B. 2 SAMPLE CASE PRINTOUT 

The computer printout for the sample case discussed above follows: 
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STOP 4 


//H0X02DD JUB ( R3582 , TEST , 1 , X )> 'GOLDEN • 
IEF2361 ALLOC. FOR MQX02DD LKED 


IEF237I 

SYSLIB ON ICO 


IEF237I 

SYSLMOD ON 235 


IEF237I 

DECKS ON 236 


IFF237I 

ON 2 30 


IFF237I 

ON 230 


IEF2371 

SYS PR I NT ON 0A5 


IFF237I 

SYSIJTI ON 235 


1EF237I 

SYSL IN ON 063 


IfcP/85 I 

SYS1.FURTLIB 

KEPT 

IEF2BSI 

VOL SER NOS = SYS Lb I . 


IEF2H5I 

S YS7 1084. T13AO35.PF000.M0XO20O. GOSET 

PASSED 

IEF285I 

VOL SER NOS = USER02. 


IEF2B5I 

SYS1.1JSERLIB 

KEPT 

I EF2B5I 

VOL SER NOS* USERC1. 


IEF285I 

SYS1.USERLIB2 

KEPT 

IEF2S5I 

VOL SER NOS * 222222. 


IEF2B5! 

SYS 1 .USFRL IB3 

KEPT 

IEF2851 

VOL SER NOS* 222222. 


ILF2S5I 

SYS71O84.T134O35.RF000.MOXO2DD.R000 1556 

DELETED 

IEF285I 

VOL SER NOS* 

IEF2B5I 

SYS7108A.T 1 34035. PF 000. HOX02DD.ROOO 1557 

DELETED 

IEF2B5I 

VOL SER NUS= USER02. 


IEF2B5I 

S YS7 1084. T 1 34035. RF000.M0X02DD.R000 1558 

DELETED 

IEF2B51 

VUL SfcR NOS - 


IEF236I 

ALLOC. FOR MOX02DD GO 


IEF237I 

PGM=*.OD ON 235 


IEF237I 

FT05F001 ON 066 


IEF237I 

FT06F001 ON 0A2 


I6F237I 

GOSET ON 235 


IEF205I 

S YS71084. T1 34035. RF000.M0X02DD. GOSET 

PASSED 

IEF285I 

VOL SER NOS* USERG2. 


IEF285I 

S YS71084. T1 34035. PFOOO.MOX02DD.ROOO 1560 

DELETED 

IEF285I 

VOL SER NOS* 

IEF2851 

SYS71084. T134035.RF00D.MOXO2DD.RO001559 

DELETED 

IEF285I 

VOL SER NOS= 

IEF285I 

SYS71084.T134035 .RF000.H0X02DD. GOSET 

DELETED 

IEF2B5I 

VOL SER NOS* USER02. 


OPTION IS ) USED 


MODULE MAP 


F88-LEVEL LINKAGE EDITOR UP1IUNS SPtLIFltU Lia l ,u«lt ,r.«h- 

VARIABLE OPTIONS USED - S I ZE= 1 1 26976. 245761 DEFAULT 

tEHOOOfl INCLUDE DECKS(MOX02MN r M0X01PK) 

1 EH OOOO INCLUDE DECKS I H0X02N I .MOX02NR ) 

IEWOOOO ENTRY MAIN 

IEWOOOO OVERLAY A 

IEHOODO INCLUDE DECKSIMOX02AS ) 

IEWOOOO OVERLAY B 

IEWOOOO INCLUDE DECKS (MDX02DS I 

IEWOOOO OVERLAY C 

IEWOOOO INCLUOF DECKS ( MT1X02EX I 

IEWOOOO OVERLAY B 

IEWOOOO INCLUDE DECKS ( MOX02C II 

IEWOOOO OVERLAY C 

IEWOOOO INCLUDE DECKS I M0X02MI .MOX02P I ,M0X02ME 1 

IEWOOOO OVERLAY B 

IEWOOOO INCLUDE OECKS<M0X02DN,M0X02MH,MOX02PN,MOX02AL) 

IEWOOOO OVERLAY B 

IEWOOOO INCLUDE DECKSIMOX02SM,MOX02RS,HUXO2VC> 

IEWOOOO OVERLAY B 

IEWOOOO INCLUDE DECKS I MOX02CH 1 

IEWOOOO OVERLAY C 

IEWOOOO INCLUDE DECKS (M0X02LD.MOXO20I ) 

IEWOOOO OVERLAY C 

IEWOOOO INCLUDE DECKS (H0X02CM) 

IEWOOOO OVERLAY C 

IEWOOOO INCLUDE DECKS IMOX02PC > 

IEWOOOO OVERLAY A 

IEWOOOO INCLUDE DECKSIM0X02SS tMOX02RV,MQX02CR > ALINPT ,H0X01UP,H0X02AT) 

IEWOOOO INCLUDE DECKSI M0X02TC) 

IEWOOOO INCLUDE DECKSIH0X02SH.MOX02LC1 


CUNTROL SECTION 

NAME ORIGIN LENGTH SEG. NO. 

ASEGTAB 00 4C 1 

MAIN 50 1914 1 

PACK 1968 F8 1 


ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION 


UNPACK 19BA ITEM I9FE 


N. 
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NOTR 

1CF8 

1DC 

1 





IHCSIOG * 

LED 8 

18 A 

l 

AL0G10 

1ED8 

ALOG 

LEF9 

IHCSSCN * 

2098 

LEO 

L 

COS 

2098 

SIN 

2089 

IHCS6XP * 

2288 

IBO 

1 

EXP 

2288 



ihcfrxpi* 

293 8 

19 L 

1 

FRXP I- 

2938 



ihcfrxpr* 

2580 

183 

1 






1 


NAME 

ORIGIN 

LENGTH 

SEG. NO. 

NAME 

LOCATION 

NAME 

LOCATION 





FBXPft* 

2580 



IMCFCOKM* 

2 70S 

F31 

1 

1 BCOM- 

2708 

F010CS- 

27C* 

IHCC0HH2* 

36*0 

5*5 

1 

SEOOASD 

38A0 



(mcfmaxi* 

3S8ft 

CO 

1 




3B96 





MAXO 

3886 

Ml NO 

1 HCS SORT * 

3C58 

1*9 

1 

SOft T 

3C5B 



IHCFCVTh* 

30 AS 

1175 

I 

ADC ON- 

30A8 

FCVAOUTP 

3652 





FCV10UTP 

*3BE 

FCVEOUTP 

*8C0 

IhCEFNTH* 

4F20 

512 

1 

AftI?H* 

*F20 

AOJSMTCH 

528C 

FIOCS- * 

5*38 

160 

1 

SET099 

5*C* 

AES899 

5*06 

JKCEFJOS* 

5598 

me 

1 

FfOCSBEP 

5596 



1HCEAAM * 

6*88 

5AC 

1 

EftftHON 

6688 

’ 1MCERRE 

6600 

IMCUOPT * 

6C66 

39B 

l 





iHCETftCH* 

7000 

2*6 

1 

1HCTRCM 

7000 

EftfttftA 

7008 

IHCUAT3L* 

7290 

63B 

1 





SAVER 

7SC8 

FCO 

l 





SAVOHP 

BBSS 

l*6C 

1 





SAVSAft 

90*8 

AS B 

1 





SAVE l 

A7A0 

FC* 

1 





SAV2 

B768 

FEO 

1 





SAV3 

C7*S 

9E* 

1 





SAVA 

0130 

3188 

l 





$ V AC AV 

10208 

S*8 

1 





SAVALL 

lOEOO 

3AIC 

t 





vaancf 

1*820 

ADC 

1 





SCAACH 

15300 

6A60 

1 





SENTAB 

ISO 60 

2* 

1 





ASZONS 

lsoas 

8SA 

2 





TEMP 

1C6*8 

*no 

7 





SENT AS 

20758 

5* 

2 






NAME LOCATION 

JHTSWTCH 3626 

AMAXO 3BB* 

FCVLOUTP 3662 

FCVCOUTP *AOA 


NAME LOCATION- 


AMINO 3BC* 


FCV20UTP *032 
INT6SUCH 4 DC> 



OATINS 

20780 

.3E60 

3 

SENTAB 

24610 

18 

3 


MEAN 

24628 

226 

4 

CAPBLl 

207B0 

B30 

5 

SENTAB 

212E0 

18 

5 


NAME 

ORIGIN 

length 

SEG. NO. 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION ' 

NAME 

LOCATION 

NISHTI 

212F0 

466 

'6 

* 








P6RF| 

21760 

46C 

6 









NAttl 

21C20 

060 

6 









UECSNJ 

207B0 

10C8 

7 









MATCH I 

2187A 

1904 

7 









PRINT I 

23200 

IO0A 

7 









AVAfLI 

2*290 

710 

7 










STGNHI 

207B0 

2320 

0 

REUSE 1 

22AO0 

400 

8 

VEHRC 

22F0O 

3C6 

8 

Choozs 

20780 

2 oce 

9 

jehtab 

22880 

3C 

9 

LBONOl 

22BC0 

A50 

10 

OUT PI I 

23310 

50C 

10 

COMPAR 

22BC0 

; 

160 6 

It 

POCSTI 

220CO 

1BC2 

12 


SMOTHS 

181)08 

22BC 

13 









REVtUS 

160*0 

662 

13 









CONSTft 

1 E 600 

*F2 

13 









ALlNPT 

1E0AB 

01 A 

13 

INPUT 

IEBA0 







umplot 

IF6C6 

F6S 

13 

PLOTJ 

1F6FA 

PLOT 2 

1F916 

PLOTS 

1FA0A 

P10T4 

1FC2A 





OMIT 

1FE0E 

PLTAPE 

IFCC* 





AFRHT 

20630 

40 

13 









TCOSTS 

20670 

16E6 

13 









SHIFTS 

21050 

70* ' 

13 










B-10 



LISTC 

SAVRT 


22 ABO 
22C68 


7B4 

FAO 


13 

13 


ENTRY AOORESS 50 

TOTAL LENGTH 249A8 

****main does not exist but has been added to data set 


suet cos» on* 


title 

RECURRING 

LC 

RECURRING LC 

RECURRING LC 

DEVELOPMENT 

SUSTAINING 

AVAILABLE 

SHAREO 

COST GRDUP5 BATCH FACT 


(KAROWAREl 

IfcTft ONLY) 

CWTR ONLY! 



FROM 

TO 






S-IB 

36.00 

0.0 

0.0 

0.0 

0.0 

0.0 

95.00 

90.00 

A 

20 

0 

0 

0 

0 

1 

S-IB 

34.90 

0.0 

0.0 

0.0 

0.0 

0.0 

96.89 

91.97 

A 

20 

0 

0 

0 

0 

1 

S“1C 

56.00 

0.0 

0.0 

0.0 

0.0 

0.0 

110.00 

1A7.00 

A 

20 

1A 

17 

0 

0 

1 

S-IC 

66.39 

0.0 

0.0 

0.0 

0.0 

0.0 

112. AO 

150.32 

A 

20 

1A 

17 

0 

0 

1 

S-Il 

'A l . 00 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

90.00 

A 

20 

1A 

0 

0 

0 

1 

S-II 

A1.86 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

91.97 

A 

20 

1A 

0 

0 

0 

1 

FIXED 

COS 15 - 

65.00 

65.00 

0. 

0 o 

.0 

0.0 0.0 

0.0 

0.0 


0.0 

0 

0 

0.0 

0.0 

FIXED 

COSTS • 

66. A2 

66.A2 

0. 

0 0 

.0 

0.0 0.0 

0.0 

0.0 


0.0 

0 

0 

0.0 

o.a 

5“**H 

21.00 

0.0 

o.o 

0.0 

0,0 

0.0 

60.00 

65.00 

A 

20 

1A 

0 

0 

0 

l 

S-*B 

71. A? 

0.0 

0.0 

0.0 

0.0 

0.0 

61.31 

66.61 

A 

20 

1A 

0 

0 

0 

I 

LS*.ft 

1A.30 

0.0 

0.0 

0.0 

0.0 

0.0 

A4.00 

15.00 

5 

20 

13 

0 

0 

0 

1 

ISAM 

IN. 20 

0.0 

0.0 

0.0 

0.0 

0.0 

57.78 

19.03 

5 

20 

13 

0 

0 

0 

1 

1200 

27.50 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1 

20 

1? 

18 

20 

0 

1 

1200 

79.85 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

i 

20 

1? 

18 

20 

0 

1 

1665 

26.50 

0.0 

0.0 

0.0 

0.0 

0.0 

220.00 

20.00 

5 

20 

11 

0 

.0 

0 

t 

1 •><,% 

_1.*T 

0.0 

0.0 

0.0 

0.0 

0.0 

282.32 

25.60 

5 

20 

! 1 

0 

0 

0 

1 

RZSB 

' 3.39 

0.0 

0.0 

0.0 

0.0 

0.0 

3199.00 

2AA.70 

8 

20 

0 

0 

0 

0 

1 

R25S 

6.53 

Q.O 

0.0 

0.0 

0.0 

0.0 

61A3.29 

A70.ll 

8 

20 

0 

0 

0 

0 

1 


REUSABLE STACE UNIT PURCHASE PRICE* 325 .0* t 169. AO) 


B-ll 



**30 2.3i 

*250 4.46 

0.0 

0.0 

0.0 0.0 0.0 

O.n o.o o.o 

0.0 

0.0 

3734.00 

7179.91 

178.20 

341.83 

8 

8 

20 21 
20 21 ‘ 

u 

0 

tf 

0 

u 

0 


REUSABLE STAGE 

UNIT 

PURCHASE PRICE* 223.10 

I t 16. 10) 









*1.5 6.60 

*1.5 12*75 

0.0 

o.o 

0.0 0.0 0.0 

0.0 0.0 0.0 

0.0 

0.0 

4578.00 

8791.04 

280.00 

537.84' 

8 

8 

20 0 
20 - 0 

0 

0 

o 

o 

0 

0 


REUSABLE STAGE 
FIXED COSTS - 
FIXED COSTS - 

UNIT 
. 10.00 
12.47 

PURCHASE PRICE* 268.52 
10.00 0.0 0. 

12.47 0.0 0. 

1 140.00) 

0 o.o 

,0 0.0 

0.0 

0.0 

0.0 

0.0 

0*0 

0*0 

0.0 

0.0 

o. 

o. 

.0 

-o 


o.o 

0.0 

$$T0 2*42 

SSTO 4,46 

0.0 

0.0 

0.0 0*0 0*0 

o.o o.o 0*0 

0.0 

0.0 

3000.00 

5501.34 

284.60 

522*22 

6 

8 

20 0 

,20 0 

o 

o 

o 

c 

0 

0 


REUSABLE STAGE 

UNIT 

PurCHASE PA1CE* 263.41 

1 144.001 









S/C 2*00 

S/C 2*49 

0.0 

0.0 

0.0 0.0 0.0 

8.0 0.0 0.0 

0.0 

o.o 

1900.00 

2368.69 

110*00 

137.13 

5 

5 

20 O 

20 0 

o 

o 

o 

o 

0 

0 


REUSABLE STAGE 

UNIT 

PURCHASE PRICE* 106.30 

1 85.001 









CSH 40.00 

CSH 40*17 

0.0 

0.0 

0.0 0.0 0*0 

0.0 0.0 0.0 

0.0 

0.0 

150.00 

153.28 

85*00 

87*04 

5 

5 

20 _ O 

20 0 

o 

0 

o 

o 

0 

0 



SM1KE0 COST OATH 


HU. 

TITLE 

development 

SUSTAINING 

14 

SAIN 

0.0 

110.00 

14 

SATN 

o.o 

112.40 

17 

SIVB 

o.o 

0.0 


n 

156 

o 

• 

o 

o 

• 

o 

12 

120 

•- 18.00 

23.00 

12 

120 

19.67 

25*27 

13 

LS6B 

0.0 

0*0 

18 

1205 

67.00 

0.0 

18 

1205 

51.50 

0.0 

20 

1200 

60.00 

0*0 

20 

1200 

65.57 

0*0 

21 

R250 

0.0 

0*0 


INTEGRATION COST OATA 


LOWER 

GROUP 

UPPER 

GROUP 

RECURRING LC 

DEVELOPMENT 

SUSTAINING 

156 

LS6B 

0.0 

0.0 

80.00 

0.0 

156 

LS4B 

0.0 

0.0 

102.62 

0.0 

120 

LS4B 

0.0 

0.0 

80.00 

0.0 

120 

LS4B 

0.0 

0.0 

102.62 

0.0 

156 

R250 

0.0 

0.0 

50.00 

0.0 

156 

R250 

0*0 

0.0 

80. 18 

0.0 



HJSSIUN WJOfcU 


HISS1UN 

VELOCITY 

PAYLOAD 

PRIORI IT 

TR 









71 

72 

73 

1 HANPLA 

29000* 

25000. 

1.00 

1 

O 

0 

0 

2 maplsu 

29000* 

25000. 

1.00 

I 

0 

0 

0 

3 HANIUN 

29000. 

25000, 

1.00 

1 

0 

0 

0 

A MALUSU 

29000. 

25000. 

1*00 

1 

0 

0 

0 

5 SPBASE 

29000. 

25000. 

1.00 

1 

0 

0 

0 

6 SPBASU 

29000. 

23000. 

1*00 

1 

0 

0 

0 

7 HEOU 

29000. 

25000. 

1.00 

1 

0 

0 

0 

a Mtcjsup 

29000. 

25000, 

1.00 

1 

0 

0 

0 

9 KEOU 

29000. 

25000. 

1.00 

1 

0 

0 

0 

10 HEUSUP 

29000* 

2 5000. 

1.00 

1 

0 

0 

0 

11 HEOU 

29000* 

25000. 

1.00 

1 

0 

0 

0 

12 MEOSUP 

26000* 

25000. 

1.00 

l 

0 

0 

0 


LAUNCH SCHEDULE 


74 

75 

76 

77 

78 

79 

80 

at 

82 

03 

64 

65 

04 

07 

08 

09 

90 

0 

0 

O 

0 

0 

O 

o 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

12 

12 

12 

12 

12 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

12 

12 

12 

12 

12 

12 

12 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

10 

10 

10 

10 

10 

o 

0 

0 

o 

o 

o 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

A 

e 

8 

0 

0 

0 

o 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


1 

HANPLA 

PLR" 

90.0 DIST 

BY. 15. 

.35, 

*25, 

• 25, 

OEV- 

17500.0 

FOR 

6 

YRS 

STARTING 

19 B 4 

SUST- 

000.0 

FIXED- 

0.0 

1 

HANPLA 

PLft- 

144.3 DIST 

07.15. 

• 35, 

*25, 

.25, 

OEV- 

2 0063. 7 

FOR 

6 

VRS 

STARTING 

1904 

SUST- 

1202.9 

FIXED* 

0.0 

2 

MAPLSU 

PLK- 

50.0 01 ST 

nr. io . 

*30, 

• 30, 

• 30, 

D6V- 

0.0 

FOB 

0 

YRS 

STARTING 

1989 

SUST- 

0.0 

FIXED* 

0.0 

2 

HAPLSU' 

PLR- 

00.2 DJ$T 

BY. 10, 

.30, 

.30, 

• 30, 

DEV- 

0.0 

FOR 

0 

VRS 

STARTING 

1984 

SUST- 

0.0 

FJXEO- 

0.0 

3 

MANIUN 

PLR- 

90.0 DIST 

BY. 15. 

*35, 

*25, 

.25, 

DEV- 

17500.0 

FDR 

6 

VRS 

STARTING 

1980 

SUST- 

600.0 

FIXEO- 

0.0 

3 

HANLUN 

PLR- 

144.3 0 1 ST 

BY. 15. 

*35. 

*25, 

.25, 

OEV* 

20063.7 

FOR 

6 

VRS 

STARTING 

19A0 

SUST- 

1202.4 

FIXEO- 

0.0 

A 

HAIUSU 

PLR* 

50.0 DIST 

BY. 10, 

.30, 

*33, 

.30, 

oev- 

0,0 

FOR 

0 

YRS 

START |NG 

1980 

SU5T- 

0.0 

FIXED- 

0.0 

4 

HALUSU 

PLR- 

90.2 DIST 

BY. 10, 

.30, 

.3?, 

• 30, 

OEV- 

o.o 

FOR 

0 

VRS 

STARTING 

1900 

SUST- 

0.0 

FIXED* 

0.0 

5 

SP8A5L 

PLR- 

00.0 01 ST 

BY. 15, 

.35, 

-25, 

.25, 

DEV- 

10000.0 

FOR 

7 

VRS 

STARTING 

1977 

SUST- 

550.0 

F1XF0- 

0.0 

5 

S PRASE 

PLR- 

99.7 DIST 

BY. 15, 

.35, 

.25, 

.25, 

DEV- 

12446.8 

FOR 

7 

YRS 

STARTING 

1977 

SUST- 

685.7 

FIXEO- 

0.0 

4 

SPBASU 

PLR- 

45.0 01 ST 

BY. 10, 

.30, 

.30, 

.30, 

DEV- 

0.0 

FOR 

0 

VR$ 

STARTING 

1977 

SUST- 

0.0 

FIXED- 

0.0 

4 

SPBASU 

PLR- 

72.2 DIST 

BY. 10, 

.30, 

.30, 

.30, 

OEV- 

0.0 

FOR 

0 

VRS 

STARTING 

1977 

SUST- 

0.0 

FIXED- 

0.0 

7 

HEOU 

PLR* 

05.0 DIST 

BY. 15, 

.35, 

*25, 

.25, 

OEV- 

3690.0 

FOR 

7 

VRS 

STARTING 

1979 

SUST- 

217.3 

FIXED- 

0,0 

7 

HEUU 

PLK* 

151.4 OISI 

BY. 15, 

.35. 

• 25, 

,25, 

06 V- 

4600.2 

FOR 

7 

VRS 

STARTING 

1979 

SUST- 

270.9 

FiXFD- 

0.0 

e 

HtOSUP 

PLR- 

40.0 DIST 

BY. 10, 

.30, 

.30, 

• 30, 

OEV- 

0.0 

FOR 

0 

YRS 

STARTING 

1979 

SUST- 

-0.0 

FIXFD- 

0.0 

a 

HEOSUP 

PLR- 

49.9 DIST 

BY. 10, 

• 30, 

.30, 

.30, 

DEV- 

0.0 

FOR 

0 

YRS 

STARTING 

1979 

SUST- 

0.0 

FIXED- 

0.0 

9 

HEOO 

PLR- 

65.0 DIST 

BY. 15, 

*35, 

.25, 

.25, 

DEV- 

3690.0 

FOR 

7 

YRS 

START 1NG 

1975 

SUST-* 

217.3 

FIXEO- 

0.0 

9 

HEOU 

PLR- 

151.4 DIST 

BY. 15, 

.35, 

.25, 

• 25, 

OEV* 

4600.2 

FOR 

7 

VRS 

STARTING 

1975 

SUST* 

270.9 

F1XE0- 

0.0 

10 

MfcOSUP 

PLR- 

*0.0 0 1 ST 

BY* 10, 

.30, 

.30, 

.30, 

OEV* 

0.0 

FOR . 

0 

VRS 

STARTING 

1975 

SUST- 

0.0 

FIXED* 

0,0 

10 

MEOSUP 

PLR* 

49.9 DIST 

BY, 10, 

.30, 

.30, 

.30, 

OEV- 

0.0 

FDR 

0 

VR$ 

STARTING 

1975 

SUST- 

0.0 

FIXED* 

0.0 

11 

HEOU 

PLR- 

05.0 DIST 

BY. 15, 

.35, 

.25, 

.25, 

OEV- 

3690.0 

FDR 

7 

VRS 

STARTING 

1973 

SOST- 

217.3 

FIXED- 

o.o 

11 

HEOO 

PLR- 

151.6 DIST 

BY* 15, 

• 35. 

.25, 

.25, 

DEV- 

4600*2 

FOR 

7 

VRS 

STARTING 

1973 

SUST- 

270.9 

F1XI D- 

0.0 


B-13 



12 H€0$U> HR- 
12 NEOSUR >LM 


0.0 FC* 
0.0 for 


0.0 FIXED- 
0.0 FIXED- 


0.0 

0.0 


AO.O DIST BY. 10, .30, .30, .30, OEV- 
*9.9 OIST BY. 10, .30, .30, .30, OEV* 


O YUS STARTING 1973 SUST- 
O YUS STARTING 1971 SUST- 


SPECIAL 

PROGRAMS 






1 PLANED 

OEV = 0.0 SUST 

= 0.0 

DEV 

STARTS 1971 

FOR 

0 YEARS 

FIXED COSTS 

= 1380.00 1400.00 

800.00 

41.00 

I. 00 

0.0 

0.0 

FIXED COSTS 

= 1410.11 1430.54 

817.45 

41.89 

1.02 

0.0 

0.0 


0*0 0.0 0-0 

0.0 0*0 0.0 


B-U 



NUMBER OF STAGES 


13 


NUMBER OF VEHICLES . 8 

NUMBER OF FAMILIES 8 

NUMBER OF INTEGRATION COSTS 3 

NUMBER OF PAD COMPLEXES O’ 

NUMBER OF MISSIONS 1? 

NUMBER OF YEARS 20 

LAUNCH BASE YEAR 71 

TOTAL ESTIMATE 300000.00 

OPTION NUMBER 3 

NUMBER OF SOLUTIONS 3 

INFLATION FACTOR .0 


QUANTITIES BRANCHED UPON 


NUMBER 

DEVELOPMENT 

SUSTAINING 

l 

96.89 

91.97 

2 

I12.*0 

150.32 

3 

132. BA 

91.97 

A 

61.31 

66.61 

5 

57.78 

19.03 

6 

262 .32 

25.60 

7 

61A3.29 

A70. 1 1 

B 

7179.91 

3AI.83 

9 

8815.96 

537. 8 A 

10 

550 1.3 A 

522.22 

U 

2368.69 

13"* .13 

12 

153.28 

87. OA 

13 

0.0 

112. AO 

l* 

19.67 

25.27 

15 

51.50 

0.0 

16 

65.57 

0.0 

17 

102. A2 

0.0 

ID 

102.A2 

0.0 

19 

80.18 

0.0 


S— IB STAGE HARDWARE 
S-IC STAGE HARDWARE 
S-n STAGE HARDWARE 
$-AB STAGE hardware 
L$*8 STAGE hardware 

1565 5TAGE HARDWARE 
R25B STAGE HARDWARE 
R250 STAGE HARDWARE 
Rl .5 STAGE HARDWARE 

SS10 stage hardware 

S/C STAGE HARDWARE 
CSM STAGE hardware 
SUN SHARED HARDWARE 
120 SHARED HAROWARE 
1205 Shared hardware 
1200 SHARED HAROWARE 

INTEGRATION OF 156 ANO LSAB HAROWARE 
INTEGRATION OF 120 ANO LSAB HARDWARE 
INTEGRATION OF 156 AND R250 HARDWARE 


L AVAIL 

LAST VGA* 

DEV START 

DEV DURAT! 





A 

20 

197 A 

1. 

A 

20 

1974 

1. 

A 

20 

19TA 

1. 

4 

20 

1974 

1. 

5 

20 

1973 

3. 

5 

20 

A9T5 

3. 

8 

20 

1972 

7. 

• 

20 

1972 

7. 

8 

20 

1972 

7. 

6 

20 

1972 

7. 

5 

20 

1973 

3. 

5 

20 

1974 

2. 

A 

20 

1971 * 

0. 

3 

20 

197 J 

3. 

3 

20 

1971 

3. 

3 

20 

1971 

3. 

5 

20 

1971 

3. 

5 

20 

197! 

3. 

8 

20 

1971 

3. 


B-15 









V 

E 

H 

I 

C 

L 

e 

/ 

M 

I 

s 

S 

I 

0 

N 


C 

A 

P A B I L I T Y 













i i 

— 

POSSIBLE, 

0 

= 

IMPOSSIBLE) 











1 

L 

l : 

i ; 

L I 

l 

1 

1 

i ; 

L l 1 

l ; 

> ; 

l t 

2222222333333333344 

Vt HI CLE / HI SSI ON 

1 

2 

3 

4 

5 

6 

7 

8 

9 

0 

l 

2 

3 

A 

5 

6 

7 

8 

9 

0 

1 

2 

3456789012345678901 

MISSION NUMBER 

1 

2 

3 

4 

A 

A 

A 

A 

5 

6 

6 

6 

6 

6 

6 

6 

7 

e 

8 

8 

8 

8 

91010101112 

1 5- IB S-A8 

CSM 

1 

0 

1 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

1 0 0 0 1 1 

? S-IC S- 1 1 

S-AB CSM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

I 

1 

1 

1 

1 

1 

1 

1 

1 

1 

111111 

3 1200 LS*B 

CSM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

111111 

A 1565 LSAB 

S/C 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

111111 

5 1565 R2 50 


1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

l 

1 

l 

I 

1 

1 

1 

1 

1 

1 

1 

1 

111X11 

6 R 1 . 5 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

111111 

7 SSTO S/C 


1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

111111 

8 R25B R250 


1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

1 

1 

1 

I 

1 

1 

1 

1 

111111 


CHANGED QUANT IT I ES BRANCHED UPON 
NUMBER DEVELOPMENT SUSTAINING 


TEAR AVAIL LAST YEAR 


7 

8093. BA A70.ll 


R258 

STAGE 

HARDWARE 

8 

20 

NUMBER 

OF UNITS. PURCHASED = 

6.0 


8 

8518.52 3A1.83 


R250 

STAGE 

HARDWARE 

8 

20 

NUMBER 

OF UNITS PURCHASED = 

6.0 


9 

I0A27.10 537. 8 A 


R1.5 

STAGE 

HARDWARE 

8 

20 

. NUMBER 

OF UNITS PURCHASED * 

6.0 




10 

708A.79 522.22 


SSTO 

STAGE 

HARDWARE 

8 

20 

NUMBER 

OF UNITS PURCHASED =■ 

6.0 


11 

3006. A8 137.13 


S/C 

STAGE 

HARDWARE 

5 

20 

NUMBER 

OF UNITS PURCHASED = 

6.0 
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BRA 

N C H A 

N U 

BOUND 

NODE 

VALUES 


NODE 

BRANCHED 

COST 

YEARS 

RECURRING 

NON-RECURRING 

TOTAL 

NO. 

from 

NO. 

SUSTAIN 

BOUND 

BOUND 

BOUND 

2 

i 

10 

0 

3X22.70 

497.79 

3620.49 

3 

l 

10 

8 

3122.70 

8104.79 

11227.49 

A 

i 

10 

*0 

3070.21 

9126.45 

-12196.66 

5 

l 

10 

1? 

3009.64 

10144.61 

13154.25 

h 

l 

10 

14 

2864.28 

11125.95 

13990.23 

7 

l 

10 

16 

2617.98 

12289.49 

14907.47 

ft 

l 

10 

18 

2343.42 

13608.50 

15951.92 

1 

l 

10 

20 

1975.98 

15020.38 

16996.36 

9 

2 

6 

0 

3620.49 

11502.77 

15123.25 

10 

2 

6 

8 

3620.49 

20363.11 

23983.60 

11 

2 

8 

10 

3597.71 

20898.45 

24496.15 

12 

2 

8 

i2 

3571.41 

20981.18 

24552.59 

13 

2 

8 

14 

3508.31 

20222.63 

23730.95 

14 

2 

8 

16 

3401.39 

18462.55 

21863.94 

15 

2 

8 

‘ 18 

3282.20 

16422.03 

19704.23 

2 

2 

8 

20 

3122.70 

13460.06 

16582.76 

16 

3 

8 

0 

3620.49 

19109.77 

22730.26 

17 

3 

8 

8 

3620.49 

27970.11 

31590.60 

18 

3 

8 

lO 

3597.71 

28505.45 

32103. 15 

19 

3 

8 

12 

3571.41 

28588.19 

32159.60 

20 

3 

8 

14 

3508.31 

27879.64 

31337.95 

21 

3 

ft 

16 

3401.39 

76069.55 

29470.95 

22 

3 

8 

18 

3232.20 

24029.03 

27311.23 

3 

3 

8 

20 

3122.70 

21067.07 

24189.76 

23 

4 

8 

0 

3545.22 

20058.38 

23603.60 

24 

4 

8 

8 

3545.22 

28918.73 

32463.94 

25 

A 

8 

10 

3545.22 

29579.60 

33124.81 

26 

4 

8 

12 

3518.92 

29636.04 

33154.96 

27 

4 

8 

14 

3455.82 

28851.30 

32307.12 

28 

4 

8 

16 

3348.90 

27091.21 

30440.12 

29 

4 

8 

18 

3229.71 

25050.69 

28280.40 

4 

4 

8 

20 

3070.21 

22088.72 

25158.93 

30 

5 

8 

0 

3458.36 

20562.48 

24020.83 

31 

5 

8 

8 

3458.36 

29422.82 

32881.18 

32 

5 

8 

10 

3458.36 

30083.69 

33542.05 

33 

5 

8 

12 

3458.36 

30741.05 

34199.41 

34 

5 

8 

14 

3395.26 

29919.41 

33314.66 

35 

5 

8 

16 

3288.34 

28109.37 . 

31397.70 

36 

5 

8 

18 

3169.15 

26068.84 

29237.99 

5 

5 

8 

- 20 

3009.64 

23106.88 

261 16.52 

37 

6 

8 

0 

3249.90 

20310.08 

23559.97 

38 

6 

8 

8 

3249.90 

29170.42 

32420.32 

39 

6. 

8 

10 

3249.90 

29831.29 

33081.19 

40 

6 

8 

12 

3249.90 

30488.66 

33738.55 

41 

6 

8 

14 

3249.90 

31109.21 

34359.11 

42 

6 

6 

) 6 

3142.98 

29242.21 

32385. IB 

43 

6 

6 

18 

3023.79 

27082.50 

30106.28 

6 

6 

8 

20 

2864.28 

24088.22 

26952.50 

44 

7 

6 

0 

2896.68 

19157.08 

22053.76 

45 

7 

8 

8 

2896.68 

28017.43 

30914.10 

46 

7 

8. 

10 

2896.68 

28678.29 

31574.97 

47 

7 

8 

12 

2896.68 

29335.66 

32232.34 

48 

7 

8 

’ 14 

2896.68 

29956.21 

32852.89 

49 

7 

8 

16 

7896.68 

30532.95 

33429.62 

50 

7 

8 

18 

2777.49 

28373.23 

31150.72 

7 

7 

8 

20 

2617.98 

25251.77 

27869.75 

51 

9 

9 

0 

15495.77 

3448.99 

18944.77 

52 

9 

9 

8 

15495.77 

14413.92 

29909.70 

53 

9 

9 

10 

14952.18 

15489.59 

30441.78 

54 

9 

9 

12 

14324.96 

16565.27 

30890.23 

55 

9 

9 

14 

12819.64 

17640.93 

30460.58 

56 

9 

9 

16 

10268.96 

18716.61 

28985.57 

57 

9 

9 

18 

7425.59 

19469.46 

26895.05 

9 

9 

9 

20 

3620.49 

17418. 9S 

21039.44 

58 

8 

8 

0 

2502.92 

17751.92 

20254.84 

59 

8 

6 

8 

2502.92 

26612.26 

29115.18 

60 

8 

6 

10 

2502.92 

27273.13 

29776.05 

61 

B 

8 

1? 

2502.92 

27930.50 

30433.41 

62 

8 

8 

14 

2502.92 

28551.05 

31053.96 

63 

ft 

ft 

16 

2502.92 

29127.79 

31630.70 

64 

8 

8 

18 

2502.92 

29692.25 

32195.16 

ft 

H 

8 

20 

2343.47 

26570.78 

28914.19 

65 

2 

/ 

0 

3670.49 

20/29.18 

23849.66 

66 

2 

7 

ft 

3670.49 

28793.13 

32413.61 

67 

2 

7 

10 

3597.71 

29400.70 

32998.41 

68 

2 

7 

12 

3571.41 

29957.11 

33528.52 

69 

2 

7 

14 

3508.31 

29976.17 

33484.48 

70 

2 

7 

16 

3401.39 

29355.54 

32756.93 

71 

2 

7 

18 

3282.20 

28555.79 

31837.98 

2 

2 

7 

20 

3122.70 

27167.51 

30290.20 

72 

1 

11 

0 

3122.70 

14371.46 

17494.16 

1 

1 

11 

20 

1975.98 

16880.15 

18856.13 

73 

72 

8 

0 

3620.49 

25376.44 

28996.93 

74 

72 

8 

ft 

3620.49 

34236.78 

37857.27 

75 

72 

8 

10 

3597.71 

34943.22 

38540.93 



76 

u 

8 

12 

3571.41 

35653.17 

39224. 5B 

77 

72 

8 

14 

3508.31 

36399.92 

39908.23 

7fl 

72 

8 

16 

3401.39 

37190.50 

40591 .89 

79 

72 

8 

18 

3282.20 

33421.88 

36704.07' 

7? 

72 

8 

?0 

3122.70 

27333.73 

30456.43 

44 ««*»#*?*#* 

POSS 18LE 

SUllJTWN 

J #«***«**4*## 


1 




1975.98 

168B0.15 

18856.13 

EXTRA 

PAD COSTS = 

0.0 




11 

10 

5 

16.00 

137.13 2194. 

15 


EXTRA 

PAD C 

SHALL SUST COSTS = 

2.194.15 



NEW VALUE = 

21050.28 




80 

51 

5 

0 

45238.25 

1082.17 

46320.42 

bl 

51 

5 

20 

15495.77 

3448.99 

18944.77 

80 

51 

11 

0 

25252.25 

450.21 

25702.46 

51 

51 

11 

20 

15495.77 

3448.99 

18944.77 

81 

51 

6 

0 

25252 .25 

3456.69 

28708.94 

51 

si 

6 

20 

15495.77 

3448.99 

18944.77 

82 

51 

17 

0 

25252.25 

3739.01 

28991.26 

bl 

51 

17 

20 

15495.77 

3448.99 

18944.77 

* * j»* * *4* <t * 

POSSIBLE 

SOLUTION 

2 *♦**#**♦**#* 


51 




15495.77 

3448.99 

18944.77 

EXTRA 

PAU COSTS * 

0.0 




5 

10 

5 

16.00 

19.03 304. 

55 


6 

10 

5 

16.00 

25.60 714. 

21 


11 

10 

5 

16.00 

137.13 2908. 

36 


fcXTRA 

PAD C 

SMALL SUST COSTS = 

2908.36 



M-.W VALUE = 

21853. 

12 




63 

15 

9 

0 

7087.30 

20681.53 

27768.83 

84 

IS 

9 

8 

7087.30 

31646.46 

38733.76 

85 

15 

9 

10 

7087.30 

32389.49 

39476.79 

86 

15 

9 

12 

7087.30 

33081.34 

40168.64 

87 

15 

9 

J 4 

7087.30 

33235.86 

40323.16 

H8 

15 

9 

16 

7087.30 

32750.68 

39837.97 

89 

15 

9 

18 

7087.30 

32086.37 

39173.67 

15 

15 

9 

20 

3282.20 

30035.86 

33318.05 

90 

58 

9 

0 

6308.03 

15955.41 

22263.44 

91 

58 

9 

8 

6308.03 

26920.34 

33228.37 

92 

58 

9 

10 

6308.03 

27996.01 

34304.04 

93 

58 

9 

12 

6308.03 

29071.68 

35379.71 


9* 

5B 


9 

14 

6308.03 

30147.35 

36455.38 

95 

58 


9 

16 

6308.03 

31223.02 

37531.05 

96 

58 


9 

18 

6308.03 

32298.69 

38606.72 

53 

58 


9 

20 

2502.92 

31365.75 

33868.66 

************ 

POSSIBLE 

SOLUTION 

3 ************ 


9 





3620.49 

17418.95 

' 21039.44 

EXTRA 

PAO COSTS = 


0.0 




EXTRA 

PAD L 

SHALL 

SUST 

COSTS = 

0.0 
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************* SOLUTION NUMBER 1 ************ 

9 3620.69 17618.95 21039.66 


MISSION CHARACTERISTIC PAYLOAD RETURN LAUNCH NUMBER 

TITLE VELUCITYIFT/SEC1 ILBSI PAYLOAD YEAR OF LAUNCHES 


OPTIMUM 
LAUNCH VEHICLE 


LAUNCH 

SITE 


HANPLA 

29000. 

25000. 

0 . 

1989 

8.00 

R1.5 

MAPLSU 

29000. 

25000. 

10 . 

1990 

15.00 

' R 1 . 5 

MANIUN 

29000. 

25000. 

0 . 

1985 

8.00 

R1 .5 

HAUJSU 

29000. 

25000. 

10 . 

1986 

. 12.00 

R 1 . 5 





1987 

12.00 

R 1 . 5 





1988 

12.00 

R1.5 





1989 

12.00 

R1.5 





1990 

12.00 

R1.5 

5PBASE 

29000. 

25000. 

0 . 

1983 

8.00 

R1.5 

SPBASU 

29000. 

25000. 

10 . 

1986 

12.00 

R 1 . 5 





1985 

12.00 

R 1 . 5 





1986 

12.00 

R1.5 





1987 

12.00 

R1.5 





1988 

12.00 

R1.5 





1989 

12.00 

R1.5 





1990 

12.00 

R1.5 

MtUO 

29000. 

25000. 

0 . 

1985 

7.00 

R1.5 

MbHSUP 

29000. 

25000. 

10 . 

1986 

10.00 

R 1 . 5 





1987 

10.00 

R 1 . 5 





1988 

10.00 

R1.5 





1989 

10.00 

R1.5 





1990 

10.00 

R1.5 

MEOO 

29000. 

25000. 

0 . 

1981 

7.00 

R1.5 

HEOSUP 

29000. 

25000. 

10 . 

1982 

8.00 

R 1 . 5 





1983 

8.00 

R 1 * 5 





1986 

8.00 

R1.5 

HE 00 

29000. 

25000. 

0 . 

1979 

7.00 

R1.5 

MEOSUP 

28000. 

25000. 

10 . 

1980 

6.00 

R1.5 


E 

E 

E 

E 

F 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 


SULUT ION l HAS 

EXPECTEO 

L V COST 

21039.** 1 

21039**51 

NODE • 

16521.73 

STO. 

OEV. • 

8797.01 

PARAMETERS MU ANO SI CM A SO 

» 9. 

,67 AND 

0.16 






PROS JCOST LE 

16522. 1 

1 *0.25 

OCHS 1 TV * 

1.1676 1 

0.37 1 





PROB (COST LE 

25356. 1 

•0.75 

50 PERCENT 

UNCERTAINTY 

INTERVAL ■ 

16522. 

TO 

25356. 

DENSITY « 

PRUB (COST LE 

11603* 

1 -0.10 

OCRS IT V • 

0.7925 1 

0.16 1 





PROS (COST It 

15726* 

1 *0.30 

OEHSITV - 

1.1568 1 

[ 0.35 1 





PRUB ICOST It 

19*11. 

i «n.50 

OEMS I TV - 

1.0772 < 

I 0.*0 1 





PROS ICOST LE 

23955. 

1 *0.70 

OENStTY • 

0.7609 

1 0.35 ) 





PROfJ (COST LE 

32*71 • 

» -0.90 

DENSITY • 

0.2632 

t 0.19 t 







9 

i 

9 

0 

********* 

19074.30 

********* 

9? 

i 

9 

8 

********* 

30039.23 

********* 

9a 

i 

9 

10 

********* 

31114.90 

********* 

99 

i 

9 

12 

********* 

32190.57 

********* 

100 

i 

9 

1* 

********* 

33266.24 

********* 

101 

i 

9 

16 

********* 

34341.91 

********* 

102 

i 

9 

IS 

********* 

35417.58 

********* 

1 

i 

9 

20 

3620.49 

36493.25 

40113.74 


************* SOLUTION NUH 

B E R 

2************ 


* , 

51 

15495 

.77 

6357.35 

21853.12 


MISSION 

CHARACTERISTIC PAYLOAD 

RETURN 

LAUNCH 

NUMBER 

OPTIMUM 

TITLE 

VELOCITYIFT/SEC) (LBS) 

PAYLOAD 

YEAR OF 

LAUNCHES 

LAUNCH VEHICLE 


MANPLA 

29000. 

25000. 

0. 

1989 

8.00 

1565 

LS4B 

S/C 

MAPLSU 

29000. 

25000. 

10. 

1990 

15.00 

1565 

LS4S 

S/C 

MANLUN 

29000. 

25000. 

0. 

1985 

8.00 

1565 

LS4B 

S/C 

MALUSU 

29000. 

25000. 

10. 

1986 

12.00 

1565 

L$4B 

S/C 





1987 

12.00 

1565 

LS4B 

S/C 





1988 

12.00 

1565 

LS4B 

S/C 





1989 

12.00 

1565 

LS4B 

S/C 





1990 

12.00 

1565 

LS4B 

S/C 

SPBASE 

29000. 

25000. 

0. 

1983 

8.00 

1565 

LS4B 

S/C 

SPHASU 

29000. 

25000. 

10. 

1984 

12.00 

1565 

LS48 

S/C 





1985 

12.00 

• 1565 

LS48 

S/C 





1986 

12.00 

1565 

LS4B 

S/C 





1987 

12.00 

1565 

LS4B 

S/C 





1988 

12.00 

1565 

LS48 

S/C 





1989 

12.00 

1565 

LS4B 

S/C 





1990 

12.00 

1565 

LS4B 

S/C 

ME 00 

29000. 

25000. 

0. 

1985 

7.00 

1565 

LS4B 

S/C 

PEOSUP 

29000. 

25000. 

10. 

1986 

10.00 

1565 

LS4B 

S/C 





. 1987 

10.00 

1565 

LS48 

S/C 





1988 

10.00 

1565 

LS4B 

S/C 





1989 

10.00 

1565 

LS4B 

S/C 





1990 

. 10.00 

1565 

LS4B 

S/C 

ME 00 

29000. 

25000. 

0. 

1981 

7.00 

1565 

LS4B 

S/C 

MEOSUP 

29000. 

25000. 

10. 

1982 

8.00 

1565 

LS4B 

S/C 





1983 

8.00 

1565 

LS4B 

S/C 





1984 

8.00 

1565 

LS4S 

S/C 

ME 00 

29000. 

25000. 

0. 

1979 

7.00 

1565 

LS4B 

S/C 

MEOSUP 

28000. 

25000, 

10. 

1980 

6.00 

1565 

LS4B 

S/C 


LAUNCH 

SITE 


B-20 


LULLILUUJLUUJUJUJLUUJUJLLILUUJLLJUJUJLULDUJLU ID LU UJ UJ UJ UJ UJ 



SOLUTION l MAS 

EXPECTED L V COST 

21653*12 1 

t 21653*171 

MODE - 

20366.09 

STO. 

-OEV. * 

6772.56 

PARAMETERS MU A NO SIGXASO - 

97 AND 

0.05 






PR08 (COST LE 

2036ft. 1 -0.31 

density * 

1.9291 f 

0.39 1 





PA08 (COST LE 

2ST6‘», 1 -0.B1 

30 PERCENT 

UNCERTAINTY 

INTERVAL » 

20366. 

TO 

25769* 

DENSITY 

PROB (COST LE 

16166. ) -0.10 

DENSITY * 

1.0961 ( 

0*16 ) 





PR 08 (COST It 

19056* 1 -0.30 

DENSITY - 

1.6602 I 

0.35 > 





PR OB (COST Lb 

21366. ) -0.50 

DENSITY - 

'1.6663 ( 

0.60 1 





PROfl 1 COST LE 

23913. \ -0.70 

DENSITY • 

1.6662 I 

0.35 > 





PROB (COST Lfc 

26162. 1 -0.90 

density • 

0.6277 < 

0*16 1 






PB08 ( A5SIGANENT Z COST GE ASSIGNMENT 1 COSTI *0.&» IF CORRELATION .0.0 
MOO I ASSIGNMENT Z COST GE ASSIGNMENT 1 COSTI .0.70 IF CORRELATION .0.3 
FA 08 I ASSIGNMENT Z COST GE ASSIGNMENT I COST! -0.72 IF CORRELATION .0.6 
'*08 I ASSIGNMENT 2 C05I GE ASSIGNMENT 1 COSTI -0.76 IF CORRELATION -0.0 


102 

14 

9 

0 

10049.35 

18461.54 

28511.39 

101 

14 

9 

8 

10049.85 

29426.46 

39476.32 

100 

14 

9 

10 

10049.35 

30169.50 

40219.35 

*59 

14 

9 

12 

10049.85 

30361.35 

40911.70 

98 

A 14 

9 

14 

10049.85 

31D15.86 

41065.71 

97 

14 

9 

16 

1004.9.85 

30530.67 

40580.52 

bl 

14 

9 

18 

7206.48 

31283.53 

38490.02 

14 

14 

9 

20 

3401.39 

29233.02 

32634.41 

9 

44 

9 

0 

9545.16 

15233.77 

24778.93 

103 

44 

9 

3 

9545.16 

76198.70 

35743.86 

104 

44 

9 

10 

9545.16 

27274.38 

36819.54 

10b 

44 

9 

12 

9545.16 

23350.05 

37895.21 

106 

44 

9 

14 

9545.16 

29425.71 

38970.88 

107 

44 

9 

16 

9545.16 

30501.39 

40046.55 

108 

44 

9 

18 

6701.78 

31254.25 

37956.03 

46 

44 

9 

20 

7896.68 

79927.55 

32874.22 

109 

90 

11 

0 

25252.25 

13279.43 

38531.68 

90 

90 

11 

20 

6308.03 

16278.21 

22586.24 

no 

90 

5 

0 

15952.27 

16820.98 

32773.24 

90 

90 

b 

20 

6308.03 

16278.21 

22586.24 

111 

90 

6 

0 

9434.21 

16285.91 

25720.12 

90 

90 

6 

20 

6308.03 

16778.21 

22586.24 

112 

90 

17 

0 

9434.21 

16568.23 

26002.44 

90 

90 

17 

20 

6308.03 

16278.21 

22586.24 

#«#***?***«* 

90 

POSSIBLE 

SOLUTION 

3 **«***4ft*$«* 

6308.03 16278.21 

22586.24 


EXTRA 

PAD COSTS = 


0*0 





5 

10 

5 


16.00 

19.03 304. 

55 



6 

10 

5 


16*00 

25.60 714. 

21 



LI 

10 

5 


16.00 

137.13" 2908. 

36 


EXTRA 

PAD t 

SHALL 

SUST COSTS 

= 2908.36 



NEW 

VALUE = 

25494 

.60 




113 


16 


9 

0 

15495.77 

11056.00 

26551.77 

114 


16 


9 

8 

15495.77 

22020.93 

37516.70 

115 


16 


9 

10 

14952.18 

23096.60 

38048. 7B 

116 


16 


9 

12 

14324.96 

24172.27 

38497.23 

117 


16 


9 

14 

12819.64 

25247.94 

38067.58 

118 


16 


9 

16 

10268.96 

26323.61 

36592.57 

119 


16 


9 

18 

7425.59 

27076.47 

34502.06 

16 


16 


9 

20 

3620.49 

25025.96 

28646.45 

120 


37 


9 

0 

12449.06 

14189.33 

26638.39 
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1?1 

. 37 

9 

n 

12449.06 

25154.26 

37603.32 

1 22 

37 

9 

10 

12449.06 

26229.93 

38678.99 

123 

37 

• 9 

12 

12449.06 

27305.61 

39754.66 

124 

37 

9 

14 

12449.06 

28381.27 

40830.33 

125 

37 

9 

16 

9098.38 

29456.95 

39355.32 

126 

37 

9 

18 

7055.00 

• 30209.80 

37264.80 

37 

37 

9 

20 

3249.90 

.28529.08 

31779.78 

127 

23 

9 

0 

14876.91 

12100.44 

26977.35 

128 

23 

9 

H 

14876.91 

23065.37 

37942.28 

129 

23 

9 

10 

14876.91 

24141.04 

39017.95 

130 

23 

9 

12 

14249.69 

25216.71 

39466.41 

m 

23 

9 

14 

12744.37 

26292.36 

39036.75 

13? 

23 

9 

16 

10193.69 

27368.05 

37561 .74 

133 

23 

9 

18 

7350.32 

28120.91 

35471.23 

23 

23 

9 

20 

3545.22 

26145.68 

29690.89 

134 

13 

'9 

0 

12707.46 

16110.10 

28817.56 

135 

13 

9 

8 

12707.46 

27075,03 

39782.49 

136 

13 

9 

10 

12707.46 

27818.06 

40525.52 

137 

13 

9 

12 

12707.46 

28509.91 

41217.37 

138 

13 

9 

14 

12707.46 

28664.42 

41371.88 

139 

13 

9 

16 

10156.77 

29740.09 

39896.87 

140 

13 

9 

13 

7313.40 

30492.95 

37806.36 

13 

13 

9 

20 

3508.31 

28442.44 

31950.75 

141 

65 

9 

0 

,10887.42 

13324.77 

24212.20 

142 

65 

9 

*8 

10887.42 

24289.70 

35177.13 

143 

65 

9 

10 

10554.78 

25365.38 

35920.15 

144 

65 

9 

12 

10170.96 

26441.05 

36612.00 

145 

65 

9 

14 

9249.79 

27516.71 

36766.51 

146 

65 

9 . 

16 

7688.94 

28592.39 

36281.32 

147 

65 

9 

18 

5948.96 

29668.05 

35617.02 

'65 

65 

9 

20 

3620.49 

30381.23 

34001.71 

148 

10 

9 

0 

15495.77 

12309.34 

27805.11 

149 

10 

9 

8 

15495.77 

23274.27 

38770.04 

150 

10 

9 

10 

14952.18 

24349.94 

39302.12 

151 

10 

9 

12 

14324.96 

25425.61 

39750.57 

152 

. 10 

'9 

14 

12819.64 

26501.28 

39320.92 

153 

10 

9 

16 

10268.96 

27576.95 

37845.91 

154 

10 

9 

18 

7425.59 

28329.81 

35755.40 

10 

10 

9 

20 

3620.49 

26279.30 

29899.79 

155 

-30 

9 

0 

14162.84 

13144.89 

27307.72 

156 

30 

9 

8 

14162.84 

24109.82 

38272.65 

157 

30 

9 

10 

14162.84 

25185.49 

39348.32 

158 

30 

9 

12 

14162.84 

26261.16 

40424.00 

159 

30 

9 

14 

12657.52 

27336.83 

39994.34 

160 

30 

9 

16 

10106.83 

28412.50 

3B519.33 


161' 

30 

9 

18 

7263.46 

29165.36 

36428.82 

30 

30 

9 

20 

3458.36 

27276.98 

30735.34 

16? 

3 

7 

0 

3620.49 

27836.18 

31456.67 

163 

3 

. 7 

8 

3620.49 

36400.13 

40020.62 

164 

3 

7 

10 

3597.71 

37007.71 

40605.41 

165 

3 

7 

1? 

3571.41 

37564.11 

41135.52 

1'66 

,3 

7 

14 

3508.31 

37583.18 

41091.49 

167 

3 

7, 

16 

3401.39 

36962.55 

40363.94 

168 

3 

7 

18 

3282.20 

36162.79 

39444.99 

3 

3 

7 

20 

3122.70 

34774.51 

37897.21 

169 

141 

6 

b 

25252.25 

13412.4B 

38664.73 

141 

141 

6 

20 

10887.42 

13324.77 

24212.19 

17.0 

141 

19 

0 

15495.77 

16411.27 

31907.04 

141 

141 

19 

20 

10887.42 

13324.77 

24212.19 

#*«#*»$***#* 

POSSIBLE 

SOLUT ION 

4 **<I*******<14 


l*i 




10887.42 

13324.77 

24212.19 

EXTRA 

PAD COSTS = 

0.0 

' 



6 

10 

5 

16.00 

25.60 409. 

66 


EXTRA 

PAD £ 

SMALL SUST COSTS ■= 

409.66 



NEW VALUE = 

24621* 

85 




171 

ii 

9 

0 

14929.39 

13348.42 

28277.82 

172 

u 

9 ■ 

a 

14929.39 

24313.35 

39242.75 

173 

ii 

9 

10 

14929.39 

25056.38 

39985.77 

174 

a 

9 

12 

14302,18 

26132.05 

40434.23 

17*> 

ii 

9 

14 

12796.86 

27207.72 

40004.57 

176 

n 

9 

. 16 

10246.17 

28283.39 

38529.56 

177 

n 

9 

ie 

7402.80 

29036.25 

36439.05 

11 

ii 

9 

20 

3597.71 

26985.74 

30583.44 

178 

12 

9 

0 

14275.88 

14442.19 

28718.07 

179 

12 

9 

8 

14275.88 

25407.12 

39683.00 

180 

1Z 

9 

to “ 

14275. 8B‘ - 

26150.14 

40426.03 

181 

12 

9 

12 

14275.88 

26842.00 

41117.88 

182 

12 

9 

14 

12770.56 

' 27917.67 

40688.23 

183 

12 

9 

16 • 

10219.88' 

28993.34' 

39213.22 

184 

12 

9 

18 

737$. 51 

29746.20' 

37122.71 

12 

12 

9 

20 

3571.41' 

27695.69 

31267.10 
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*««**«««**,*» SOLUTION NUMBER 3************ 

l*j 10887.42 13734.43 24621.05 


MISSION 

CHARACTERISTIC 

PAYLOAD 

RETURN 

LAUNCH 

NUMBER 

OPTIMUM 

TITLE 

VELOCITYI FT/SEC) 

I LBS! 

PAYLOAD 

YEAR 

OF LAUNCHES 

LAUNCH VEHICLE 

MANPLA 

29000- 

25000. 

0 . 

1989 

8.00 

1565 R250 

MAPLSU 

29000. 

25000. 

to. 

1990 

15.00 

1565 R250 

MANLUN 

29000. 

25000. 

0. 

19B5 

8.00 

1565 8250 

MALUSU 

29000- 

25000. 

10. 

1986 

12.00 

1565 R250 





1987 

12.00 

1565 R250 





1988 

12.00 

1565 R250 





1989 

12.00 

1565 R250 





1990 

12.00 

1565 R250 

SPBASE 

29000- 

25000. 

0 . 

1983 

8.00 

1565 R250 

SPBASU 

29000. 

25000. 

10. 

1984 

12.00 

1565 R250 





1985 

12.00 

1565 R250 





1986 

12.00 

1565 R250 





1987 

12.00 

’ 1565 R250 





1988 

12.00 

1565 R250 





1989 

12.00 

1565 R250 





1990 

12.00 

1565 R250 

MfcUU 

29000. 

25000. 

0 . 

1985 

7.00 

1565 R250 

Mb U SUP 

29000. 

25000. 

10. 

1986 

10.00 

1565 R250 





1987 

10.00 

1565 R250 





1988 

10.00 

1565 R250 





1989 

10.00 

1565 R250 





1990 

10.00 

1565 R250 

ME 00 

29000. 

25000. 

0 . 

1981 

7.00 

1565 R250 

MEOSUP 

29000. 

25000. 

10. 

1982 

8.00 

1565 R250 





1983 

8.00 

1565 R250 





1984 

8.00 

1565 R250 

MEOO 

29000. 

25000. 

0 . 

1979 

7.00 

1565 R250 

MEUSUP 

28000. 

25000. 

10. 

1980 

6.00 

1565 R250 


LAUNCH 

SITE 


SOLUTION i HAS EXPECTED L V COST 24S21.S5 I 2A&21.8B1 NODE - 21507. Sp STO. DEV. ■ 75A2.VS 

PARAMETERS HU AND SIGMA 50 - 10,07 A*> 0.00 

PROe (COST Lfe 21S0R. I -0.20 DENSITY « t 0*30 1 

PRO a (COST LE 296SL* > -0*70 50 PERCENT UNCERTAINTY INTERVAL - 2150*. TO 29001. DENSITY • 

PROS (COST LE 16010. I »0, 10 DENSITY * 0.09*3 I 0.1* 1 

PROS (COST It 20110. » -0.30 DENSITY - 1.4101 « 0.35 1 

PROS (COST LE 23537. I -0.50 DENSITY - 1.3900 ( 0.60 I 

PRU3 (COST LE 27567. I -0.70 DENSITY • 1.0353 t 0.35 I . 

PRD0 (COST LE 365B6. ) -0.90 DENSITY » 0.6100 I 0.10 1 

PROO ( ASSIGNMENT 3 COST GE ASSIGNMENT 1 COST* -0.75 |F CORRELATION -0.0 

PAUb ( ASSIGNMENT 3 COST GE ASSIGNMENT I C0ST1 -0.77 I* CORRELATION -0.3 

PROB I ASSIGNMENT 3 COST G6 ASSIGNMENT l COSTl -0.01 if CORRELATION .0.6 

PROB I ASSIGNMENT 3 COST GE ASSIGNMENT 1 COSTl -0.90 IF CORRELATION -0*9 

PROS I ASSIGNMENT 3 COST GE ASSIGNMENT 2 COSTl -O.Tl IF CORRELATION -0.0 

PRO* ( ASSIGNMENT 3 COST GE ASSIGNMENT 2 COST) -0.72 IF CORRELATION -0.3 

PROB ( ASSIGNMENT 3 C05T GE ASSIGNMENT 2 COSTl -0.75 |F CORRELATION -0.6 


B-23 


mmmmmmmmmniinmmmmnnnirtirn rnmrnmmmmmni 



PKOB < ASSIGNMENT 3 COST GF ASSIGNMENT 2 COST) =0.83 IF CORRELATION =0.9 


THE OPTIMUM SOLUTION HAS BEEN DETERMINED 


B-24 



TITLE * 'TEST CASE*, LEVEL = 31R0. , 3500. , 3850. ,4230. ,4650. ,5 1 10. , 

5620. . 6180. .6800. .7480. . 0 1 30. .8940. .9830. . 108 10. . 1 1890. . 13080. . 14390. , 

15830. . 17410. .19150., 

ISTRT = 2 , IFIN = 20, 

MAX ITR = 10, FIXED =1800. ,1650. ,1500. ,1540. ,1590., 

1630. . 1680. . 1 740 . . 1800. . 1870. . 1930. .2010. . 2100. .2200. .2310. . 2430., 

2560.. 2700.. 2 860. .3140., 

PHAX = 15500., PHIN = 1500., 

NCSTR = 11, NPROG = 101,73,74,71,72,75,76,80,81,84,85, 

KUUE = 8,10X6, 

KPRUG = 0,74,73,72,71,76,75,81,80,85,84, 

CS - 0.,0.,— l.,0.,~l.,0.,“l.,0.,“l.,0*,— 1., 


KlIUE 


23 constraints 


8 13 PLANED FIXED 


b 

TAKGET 

DATE 

11 

MEOO 

NO 

LATER 

than 

0. 

YEARS 

AFTER 

12 

MEOSUP 

6 

TARGET 

DATE 

12 

MEOSUP 

NO 

LATER 

THAN 

1. 

YEARS 

AFTER 

11 

MEOO 

b 

TARGET 

DAT F 

9 

MEOO 

NO 

LATER 

than 

0 . 

YEARS 

AFTER 

10 

MEOSUP 

b 

TARGET 

DATE 

10 

MEOSUP 

NO 

LATER 

THAN 

1. 

years 

AFTER 

9 

MEOO 

6 

TARGET 

DATE 

7 

MEOO 

NO 

LATER 

than 

0. 

years 

AFTER 

8 

MEOSUP 

6 

TARGET 

DATE 

8 

MEOSUP 

NO 

LATER 

THAN 

1. 

years 

AFTER 

7 

MEOO 

6 

TARGET 

DATE 

5 

SPBASE 

NO 

LATER 

THAN 

0 . 

years 

AFTER 

6 

SPBASU 

6 

TARGET 

DATE 

6 

SPRASU 

NO 

LATER 

THAN 

1 . 

years 

AFTER 

5 

SPBASE 

6 

TARGET 

DATE 

I 

MANPLA 

NO 

LATER 

THAN 

0. 

years 

AFTER 

2 

MAPLSU 

6 

TARGET 

DATE 

2 

MAPLSU 

NO 

LATER 

THAN 

1 . 

years 

AFTER 

1 

MANPLA 


11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

1 

MANPLA 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

2 

MAPLSU 

11 

PROGRAM 

OEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

3 

MANLUN 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

4 

MALUSU 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

5 

SPBASE 

11 

PROGRAM 

OEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

6 

SPBASU 

11 

PROGRAM 

OEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

7 

MEOO 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

B 

MEOSUP 

11 

PROGRAM 

OEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

9 

MEOO 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

10 

MEOSUP 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

11 

MEOO 

11 

PROGRAM 

DEV 

14 

COMPLETED 

BY 

FIRST 

LAUNCH 

OF 

PROGRAM 

12 

MEOSUP 



RECURRING COST DATA 


KEY NAME 


UNIT COST 


6 R1 .5 


12.75 




REFERENCE 

YEAR 

1971. 


TEST 

CASE 









PN 

NAMfc 

START 

OEVL 

YRS 

SUST 

SS 

SO 

RS 

RO 

RECURRING OR FIXED ITEKS 




1 

HANPLA 

1989. 

28069. 

6. 

1283. 

9 

13 

3 

4 

178. 

925. 

390. 

319. 





2 

HA PL SU 

1989. 

0. 

0 * 

0. 

1 

0 

9 

4 

130. 

399. 

956. 

909. 





3 

MANLUN 

1980. 

28069. 

6. 

1283. 

9 

13 

3 

4 

178. 

925. 

390. 

319. 





4 

halusu 

1980. 

0. 

0 , 

0 . 

1 

0 

9 

8 

109. 

923. 

788. 

1115. 

1115. 

1011. 

692 . 

327 

;> 

SPBASE 

1977. 

12967. 

7. 

686. 

5 

13 

9 

4 

125. 

300. 

250. 

225. 





6 

SPBASU 

1977. 

0. 

0 . 

0 . 

1 

0 

5 

10 

99. 

385. 

721. 

1019. 

1019. 

1019. 

1019. 

925 

7 

ME 00 ; 

1979. . 

9 600. 

7 . 

271. 

5 

8 

9 

4 

169. 

389. 

310. 

288. 



' * 


8 

MfcOSUP 

1979. 

0 . 

C. 

0. 

1 

0 

5 

8 

56. 

231. 

995. 

626. 

626. 

570. 

395. 

181 

9 

HfcOO 

1975. 

9600. 

7. 

271. 

5 

6 

9 

4 

169. 

389. 

310. 

288. 





10 

.MEOSUP 

1975. 

0 . 

0 . 

. 0. 

1 

0 

5 

6 

95. 

185. 

356i 

956. 

316. 

195. 



11 

MEOO 

1973. 

9 600. 

7. 

271. 

5 

5 

9 

4 

169. 

389. 

310. 

288 * 





12 

MEOSUP 

1973. 

0. 

0 . 

0 . 

• 1 

0 

5 

4 

39. 

105. 

128. 

109* 





13 

PtANEO 

1971. 

0 . 

0. 

0 . 

1 

0 

0 

o' 

0 . 
















1 

s 

1910. 

1931. 

817. 

* 42* 

1 . 




14 

DEV 9 

1972. 

10902. 

7. 

538. 

5 

15 

0 

0 

* 
















2 

2 

■ 12. 

12. 





- 


TOTAL 


92797. 


55985. 














298. 
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TOTAL AAOBAAN COJTI AND LAUNCH VEHIClt SCHEDULE 


VfcAA 

1971. 

197?. 

1973. 

1974. 

1975. 

1976. 

1477. 

1976, 1979. 

1966. 

1981. 

1982. 1961* 1984. 196). 1966. 1967. 1968. 

1986. 

1440. 

PMOGAAM 














1 MANPLA 

0. 

0* 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 0.\a03. 5009. 7392, 6921. 6632. 

3400. 

1213* 

2 MAPL Slf 

0, 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 0. 0. 6. 0. 130. 399. 

456. 

409. 

3 MAHLUN 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

1603. 

5009. 

7392. 8921 . 6632. )4#0. 1263. 1283. 1263, 

1263. 

6* 

1283. 

A MALUSU 

O. 

0. 

0. 

o. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

0. 104. 423. 786. 1115. 1115. 1011. 

692. 

327. 

5 SP8ASE 










3553; 

6* 6* 6» 

6* 

6* 

0. 

0. 

0. 

0. 

0. 

0. 

559. 

1644. 2568. 

3047. 

2560. 1470. 666. 666. 666. 666, 666. 

666. 

666. 

6 SPBASU 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

4. 6. 

0. 

94. 

365. 721. 1019. 1019. 1019, 1019. 925. 

634. 

298. 

7 MtOU 











6* 6* 6* 6* 6* 

6* 

6* 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 266. 

606. 

946* 

1242. 1606. 1167. 765. 271. 271. 271. 

6* 

0. 56. 231. 445. 626* 626. 570. 

271. 

271. 

8 MttJSUP 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 0. 

0. 

0. 

395. 

161. 












6* 6* 6* 

6* 

6* 

9 H KlU 

0. 

0. 

0. 

0. 

206. 

606. 

948. 

1242. 1468. 

1167. 

765. 

271. 271. 271. 



lo mhiSup 

0. 

0. 

0. 

0. 

0* 

0. 

0. 

0. 45. 

165. 

6* 

356. 

454. 316. 145. 














4* 6« *• 



11 HUH) 

0. 

0. 

206. 

606. 

94 A. 

1242. 

1608. 

1187. 765. 

271. 

271. 




12 *U|bUP 

0. 

0. 

0. 

0. 

0. 

0. 

34. 

165. 120. 

109. 





11 PlAHfefJ 

1410. 

1431. 

BI7. 

42. 

1. 




6* 





14 MV 9 

0. 

487. 

1384. 

2155* 

2436. 

2461. 

1966, 

1004. 538. 

536. 

.536* 

538. 536. 536. 536. 536. 536. 538. 

536. 

538. 

SUM 

1410. 

1697 « 

2408. 

2104. 

3593. 

4524. 

5056. 

5182. 5651. 

7747. 

11534. 

12662. 14004. 12935.12650. 12929. 14586. 12314. 

6355. 

5275. 

MXfcU 

1600. 

1630. 

1500. 

1540. 

1590. 

1630. 

1664. 

1740. 1606. 

1670. 

1930. 

2010. 2100. 2206. 2314. 2436, 2560. 2700. 

2866. 

3140, 

TtlTAL 

3?i 0. 

3547. 

3908. 

4344. 

5183. 

6154. 

6736. 

6922. 7658. 

9617. 

13464. 

14672,16104.15135.14960.15354.17146.15014. 

11215, 

6415. 



♦ 

• 

* 

* 

• 

* 

• • 

• 

* 

• ••*••• 

* 

6 

LEVEL 

3180. 

3500. 

3850. 

4230. 

4650. 

5110. 

5620. 

6180. 6660. 

7460. 

6130. 

6946. 9830.10610.11896.23080.14390.15630. 

17410. 

19150. 

M'J Ok 31BO. 

bO P(-R r.f'MT 

3416. 

3379. 

3377. 

4123. 

5340. 

6247. 

6441. 7245. 

9685. 

12187. 

12827.14148.13659.13647.13247.15164.13716. 

10677. 

7966. 

CIMFII), 

3379. 

3873. 

4400. 

4801. 

6644. 

7104. 

7703. 

7790. 8660. 

11006. 

15777. 

17556.19002.17674.17466. I 6654.20159. 17462. 

12669. 

9405. 

KMS - *016. 

SMOOTHING 

INTERVAL 1972. THRU 1990. 
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71. 72. 73. 74. 75. 75. 77. 7». 79. «0. SI. 82. 83. 84. 85. 85. 

YEAR 
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ENO OH DATA - JOB COMPLETE 


JOB 

JOB 


CP 

JOB 

TIME ON 

LINES 

JOB TIME 


NO. 

TYPE 

NAME 

NO. 

ORDER 

MIN. 

PRINTED 

MIN. 

DATE 

A263 

TEST 

GOLDEN 

MDX02DD 

R3582 

1024.75 

1007 

0.69 

03/25/71 
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Appendix C 
FLOW CHARTS 


C.l DESCRIPTION 

Flow charts are provided in this section for each of the major subroutines and the 
main program MASTER.' They appear in alphabetical order by subroutine name. 

A short description of the purpose of each subroutine is provided in the program 
listing in Appendix D. Subroutines AFRMT, INPUT, PLOT, and PACK were written 
in 360 Assembler Language so a description of each subroutine appears in this section 
rather than a flow chart. 

C. 2 MAJOR SUBROUTINE CHARTS 

The subroutine flow charts follow. 
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SUBROUTINE AFRMT 


IDENTIFICATION 

Subroutine AFRMT 
Deck Name MOX02AT 

Fortran IV subroutine coded in 360 Assembler Language 
Written by R. E. Siye 

PURPOSE 


This subroutine converts a variable from integer to A format 
USAGE 

CALL AFRMT (I, X) 

where . . 

I is the name of the variable (may be one element of an array) in integer 
format 

X is the name of the result returned in A4 format 
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INITIALIZE 


INITIALIZE 

NUMBER = 0 
GUESS = 1.75* 
GUESS 


FINISH 
V 1^- 


f GO TO l 

V 17 J 



I return] 


SETUP MISSION MATRIX 
BY YEAR 

NM 

NUMBER OF MISSION- 


YEAR COMBINATION 

LETT •= 

MISSION NUMBER 

LYR = 

LAUNCH YEAR 

YRLM = 

LAUNCH RATE 


YES ^ GUESS^ 


CALL 

DECSNI 



-SUBBOUTINE ASIGNS 
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■ETURN, 










SUBROUTINE AVAILI 

















SUBROUTINE CAPBLI 





















SUBROUTINE CAPBLI (Cont. ) 
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SUBROUTINE CHOOZS 


























. SUBROUTINE CHOOZS (Cont. ) 


































SUBROUTINE COMPAE 
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jWRITE 

END OF DATA- 
iJOB COMPLETE 



READ AND PRINT OUT 
MISSION COST DATA 
LAUNCH RATE AND 
REQUIREMENTS 


'DETERMINE NMB » 

! NUMBER OF MISSIONS 



CALL MEAN 


STOP WHEN READ" 
BLANK CARD 




READ AND PRINT OUT 
PAD COST DATA 


(determine np = 

(NUMBER OF PAD COSTS 

| STOP WHEN READ BLANK 
ICARD 






READ AND PRINT OUT 
SPECIAL PROGRAM 
: COST DATA 

2 



Ufj i 

\ / 'NO 


! DETERMINE NS PR 

YES 



'SPECIAL PROGRAMS 

1 




[RESTORE VALUES OF 



MhAN 

'NSTG, NFAM, NCI, NP, 



STOP WHEN READ 
! BLANK CARD 

jNMIS FROM LAST CASE 
IF APPROPRIATE 





HO 

; READ AND PRINT OUT 
'STAGE COST DATA 





1 DETERMINE NSTG - 
INUMBER OF STAGES 

JNO 


CALL MEAN 


READ AND PRINT OUT 
SHARED COST DATA 


ISTOP WHEN READ 
'.BLANK CARD 


[DETERMINE NFAM - 
NUMBER OF SHARED COSTS 


CALL MEAN 


j STOP WHEN READ BLANK 
CARD 


•READ AND PRINT OUT 
INTEGRATION COST DATA 


DETERMINE NCI = 

Inumber of integration 
costs 



CALL MEAN 


ISTOP WHEN READ BLANK 
'CARD 


SUBROUTINE DATINS 
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SUBROUTINE DECSNI 
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SUBROUTINE DECSNI (Cont. ) 



















SUBROUTINE INPUT 


IDENTIFICATION 

AL INPT Generalized Data Input Subroutine 
360/Assembler Language 
Written by R. E. SLye 

PURPOSE 

This subroutine provides for input of single-precision fixed and floating point numbers 
and Hollerith information. Usage is particularly convenient inasmuch as no format 
statements are required, and data may be loaded in any order irrespective of the 
order in the calling statement. 

USAGE 


The calling statement is 

CALL INPUT (5HALPHA, ALPHA, 4BETA, BETA, . . . ) 

In the above, the Hollerith literals represent the external names of variables or arrays 
as they should appear on data cards. The other arguments are the internal names of 
the variables and arrays as referenced in the source program. It will become apparent 
that by using the external names in addition to the symbolic location names, it is possible 
to enter data for a variable on an input card without regard to its relative location in 
the calling sequence of the program. 
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ACCEPTABLE INPUT DATA FORMS 

A. Floating Point General Form 

Up to 9 decimal digits, with a decimal point 

permitted at the beginning, at the end or between 

two digits. A preceding plus or minus sign is 

optional. A decimal exponent preceded by E+ or 

+ or - if negative may follow. If no decimal 

point appears, the exponent is mandatory. The 

magnitude of the" number maust be . between the 

—75 “■ 

approximate limits of 10 and 10 . 

B. Decimal Integers General Form 

The magnitude of the number must be less than 
31 

2 . A preceding plus or minus sign is optional. 


C. Hollerith Information General Form 

Any number of characters, including, blanks. 

The number of characters is specified by writing 
nH preceding the Hollerith information, n is 
the number of characters in the block following nH. 

RULES FOR PREPARATION OF DATA CARDS 

Blanks are ignored except within Hollerith data fields. 

Data must be contained within card columns 1 through 72. 


Examples 

17. 

5.0 

- . 0003 

5.0E3 (5.0 x 10**) 
5.0E + 3 (5.0xl0 3 ) 
5.0E-7 (5.0x10-7) 


Examples 

3 

+1 

-28987 

Examples 

14HTHIS IS A TEST 
6HALPHA 
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It is not necessary that variable names on the data cards appear in the same order 
as those in the calling sequence. The routine will search the list for the name and 
its core location. 

Individual data items are separated by commas. 

An equal sign separates the name of a variable and its first data item. 

A comma separates the end of a data set and the next variable name. 

A data input record is terminated by an asterisk (*). 

It is not necessary to input a data set for each name in the calling sequence. 

Elements of an array may be skipped by writing consecutive commas — i.e., no data 
between the commas; or by singly subscripting the array name. Double subscripting 
is illegal. Thus, if it is desired to input data into a three-element vector V, one 
could write: 


V = 2.79,, 1.32 

No data would be entered into V(2). What was originally there remains there. 
Alternatively, the above could be written: 

V(l) = 2.79, V{3) = 1.32 

Special Feature. The card image is normally written on the system output unit, tape 6, 
prior to being processed by the routine. If an N is punched in column 73, the card will 
not be listed. If column 73 contains a C, the card is treated as a comment only; i.e. , 
it is not scanned for data. If the card contains CE in columns 73— 74, the card will 
be treated as a comment card, and a page will be ejected. 
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EXAMPLE 


If the following call statement appeared in a FORTRAN program, 

CALL INPUT (1HA, A, 1HB, B, 1HC, C, 1HD, D, 1HP, P,' 1HR, R, 1HS, S) 
the input cards could be punched as follows: 


A 

= 3.14159265, B = 707, C = 1870, 

1st card 

D 

— .1.,- 2., 3., 4., .5., 6., 7., 8., 9., 

2nd card 

R(2) 

= 3, R(5) = 74., 42, 

3rd card 

F 

= 22HTHIS IS A CHECKOUT RUN* 

4th card 

Note 

that D must be dimensioned at least 9, 



R dimensioned at least 7 and P at least 6. 

Also R(l), R(3), R(4), and R(6) are unchanged. 

Even though S appears in the CALL statement, it is not 
necessary that it appear on one of the input cards. The 
* on card 4 signifies the end of the data record. This 
means that the routine will return control to the calling 
program. 

RESTRICTIONS 

The following errors will be detected by the subroutine. A diagnostic message and 
the card in error will be permited on the system output unit, tape 6. 

1. Name on data card exceeds six characters. 

2. Name on data card does not appear in the calling sequence. 

i 

3. Punctuation errors. 

4. Name on data card begins with a non-alphabetic character. 

5. Decimal or integer data out of range. 

This subroutine may be used for reading double precision numbers; however, only the 
high order part of the number will be loaded. To clear the low order part of the 
number, write 

DWORD = 1., 0, 
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ADDITIONAL INFORMATION 

1. A slash (/) on a data card (not in an H field) indicates that information to 

the right of the slash is not to be scanned for data. Therefore, these columns 
may be used for comments. 

2. In addition to the above means for entering Hollerith information, Hollerith 
may also be entered by enclosing it in apostrophes, i.e., P = 'THIS IS 

A CHECKOUT RUN' 

3. Floating. point and integer data may be repeated into consecutive locations 
by use of the letter X followed by the data; i.e., 

D s i., 4X2., 3., 

• i 

is equivalent to 

D = 1., 2., 2., 2., 2., 3., 

4. Alphanumeric data may also be repeated. The use of the letter X is 
optional. For example, to set an array dimensioned 18 to blanks, write 

TITLE = 18* *, 

If the alphanumeric field exceeds 4 characters, only the last word will 
be repeated. For example, 

DATA « 3'ABCpEF', will result in 
ABCDEF EF EF 

5. If a name on a data card is not followed by an equal sign, it will be retrieved 
from the calling program. For example, if in the calling program, X and 
ALPHA are dimensioned at least 2, then the following data card 

X = 3.1, ALPHA (2), 

will result in the current value of ALPHA (2) being stored in X(2). 
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As an additional example, suppose that the calling FORTRAN program 
has the following sequence: 

.. LOGICAL *. ;■{ 


TRUE = .TRUE. 

FALSE = .FALSE. 

• • • 

• • • 

CALL INPUT (. . 'OK', OK, 'TRUE', TRUE, 

'FALSE', FALSE, . . .) 

Then a data card written as follows, 

OK = TRUE, 

will result in the input of logical data to the program. 

6. If a comma is omitted from a data card, a warning will be written on the 
system output unit and execution will continue. However, for any other 
type of error, execution will be suppressed, and the remaining data cards 
will be scanned for errors. 

7. This subroutine will accept data cards punched on either a 026 for 029 
keypunch. 
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NO 


WILL NEW PENALTY 
FUNCTION - PREVIOUS 
PENALTY FUNCTION? 


YES 
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SUBROUTINE LISTC 
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FOR NEW CASE 
FINISH - 1 
JFLAG - 0 


OPTIMUM ASSIGNMENT 
WITHIN BUDGET CONSTRAINTS 
HAS BEEN DETERMINED 


OPTIMUM SOLUTION 
NOT DETERMINED 
GO TO NEXT CASE 


1 CALL ASIGNS 


NUMBER OF ITERATIONS 
- MAXIMUM NUMBER ALLOWED 


HAVE ALl7 N v 

CONSTRAINTS 

BEEN 

.DETERMINED? > 


CALCULATE VARIABLES FOR 
ASSIGN FROM SMOOTH OUTPUT 


IS, MYRS, LYR, DS, NRFX, SUST, 
YD, NYD, LYD 


CALLSMOTHS 


<OS fo 



NCS - NUMBER N 
OF CONSTRAINTS 
.-90 


CALCULATE VARIABLES FOR 
SMOOTH USING MISCELLANEOUS 
PROGRA M DATA 

S, R, NSTRST, H - NMIS+NSPR 


CALCULATE DEVELOPMENT 


CALCULATE VARIABLES FOR 
SMOOTH USING DEVELOPMENT 

AND SUSTAINING COSTS 


LABEL, C. NYBSFX, RFTXD, 
NSTRFJC, S, R. SUS, NSTRST. 
NYRSST, N - NMJ5 + NSPR 
+ NUMBER OF DECISION OPTIONS 
USED IN OPTIMUM ASSIGNMENT 
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SUBROUTINE MATCH! 
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DOES TUB 2-STACE 
VEHICLE MEET THRUST- 
TO- WEIGHT AND DIAMETER 
COhSTRADfTS? 


YES 







/co\ 


Hi fl . 

“.'•i.:*, rg3E SKm®? 

( TO ) 



s ilralii 

\ 2 oo y 



X 

jNO 



600 




HAVE ALL 


HAVE ALL 


HAVE ALL j 

| 

| STORE MISSION 
CAPABILITY VALDES 

YES 

HAVE ALL 
1ST STAGES 

YE3 

2ND STAGES 

YES 

3RD STAGES 

YES 

4TH STAGES 


FOR VEHICLES ADDED 


BEEN 


WITH PRESENT 


WITH PRESENT 


WITH PRESENT 

V / 1 





1ST STAGE? 


LOWER 2 STAGES? 


LOWER 3 STAGES? 




DOES THIS 




<£. ^ 


4-STAGE 




YES 


ts 4TH STACE 

NO 

VEHICLE MEET 

IS 

CALL PERFI 




-2ND STAGE? 


THR UST-TO-W EIGHT 


_ 

EARTH ORBtT? 





AND DIAMETER 






HAS STORAGE 
BEEN EXHAUSTED? 


I CALL PEftlT \ 


A 


DOES THIS 
3-STAGE VEHICLE 
MEET THRCST-TO- 
W EIGHT AND DIAMETER 
CONSTRAINTS? 

[no ^ ^ 



SUBROUTINE MATEI 
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SUBROUTINE MEAN (PI, KSTAT, SIGS, SX, SY 
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SUBROUTINE OUTPTI 







SUBROUTINE PACK 


IDENTIFICATION 

Subroutine PACK 
Deck Name MOXOIPK 

Fortran IV subroutine coded in 360 Assembler Language (also COMPASS coded for- 
the CDC). Written by R. E. Slye 

PURPOSE 

This subroutine is used to pack an array of integer or logical data into a smaller array 
in a packed binary format. 

METHOD 

The unpacked (source) data is treated as an array of unsigned integers. The integer 
words are truncated on the left and only the N low order bits are retained. The N 
low order bits are then placed sequentially, left adjusted, in a packed array word 
until that word is filled. Packing then continues into the next word, etc., until the 
source data is exhausted. 

Since a storage word contains 32 bits, a packed word may contain 32/N data items. 
Note that since only the N low order bits are retained,, the largest integer item that 
will ho represented correctly is 2 N - 1. For example, if N = 4, the packed items 
will represent digits from 0 to 15. For a larger integer, the packed item will in 
effect be the modulus of the source item. 
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USAGE 


This subroutine has three entry points. The three entries are PACK, UNPACK, and 
ITEM. To pack data, the Fortran call statement is 

CALL PACK (L, M, I, N) 


is the name of the array containing the source data . 
is the name of the array containing the packed data . 
is the number of data items in L. 
is the number of low order bits to be retained. 

The array L should be dimentioned I . 

The array M should be dimentioned [(I-l)/[32/N]] + 1, where [ ] denotes integer part 
To unpack data, the Fortran call statement is 

• . t 

CALL UNPACK (L, M, X, N) 
where the arguments are as listed above. 

I may be less than the actual number of items in the packed array. 

Packed data in the array M is unpacked and placed right adjusted in the array L . 

(The unused high order part of the word is cleared.) 

The third entry j>oint to the routine may be used to recover a single item from the packed 
array M . It is called by the Fortran statement 

J o ITEM (M, I, N) 

The Ith item in tin* (Kicked array M is returned to the calling program. 


where 

L 

M 

I 

N 
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ADDITIONAL INFORMATION 

If [32/N] is not an even integer, some low order bits in a packed word are unused. 
For example, if N = 6 the word may contain 5 items and the last 2 bits are unused. 
The 6th item will then start at the beginning of the 2nd word. 
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SUBROUTINE PDCSTI 
















OUTINE PEBFI 




















SUBROUTINE PLOT 


IDENTIFICATION 

l 

UMPIiOT, Drawing of Graphs by Use of the Printer 
360/Asscmbler Language 

Ames Modification of SHARE Library Routine UM PLOT 
PURPOSE 

This subroutine is used for the purpose of drawing plots, along with the printing of the 
usual type of numerical output, by use of the printer. 

PRELIMINARY REMARKS 

Several changes have been incorporated in the FORTRAN IV version of UM PLOT. 

The maximum width of the plot has been increased from 10T columns to 119 columns. 
The original program included entries for use in SAP and MAD coded routines, whereas 
the present version may be entered only from FORTRAN IV or MAP coded programs. 

METHOD 

A region of core is treated here much as a. piece of graph paper. This region of core 
is called the "image region." The image region is cleared, and then a grid, consisting 
of I's and -'s, wilh+.s at grid intersection points, is formed. The program will place 
any given BCD character at the appropriate place in the image region, corresponding 
to an ordinate — abscissa pair. Each point is written in the image region independently 
of those previously written, and so data to be plotted need not be sorted. Any number 
of points (consistent with the specified size of. the image) may be plotted, with any 
Hollerith plotting character whatever. Points which fall on previously plotted points 
replace the latter, and points which fall on a grid-line replace the grid line character. 
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Points which iie outside of the' specified grid limits are not plotted. When all desired 
points have been placed in the image region, the latter is written out onto a standard 
BCD tape {i.e., tape 6, 7, 9, or 11) for subsequent printing. 

USAGE 

This subroutine has four main entries and two auxiliary entries. The four main 
entires are PLOT 1, PLOT 2, PLOT 3, and PLOT 4. Each performs a specific 
function, and normally they arc taken in the order listed above. Exceptions to the 
normal sequence are discussed below. The two auxiliary entries are OMIT and 
PLTAPE. The first of these is used for the purpose of causing portions of the grid 
to be deleted, and the second is used if it is desired to output on a tape other than 
logical tape 6. 

Each of'the entries is discussed below in detail, following which the calling sequence 
arguments are defined. It may be noted that the four main entries can be taken by 
use of either a standard CALL statement le.g., CALL PLOT 1( )] or an arithmetic 
statement [e.g. , R = PLOTl( )] . The advantage of the latter is that if certain error 
conditions arise, they can be detected by interrogation of R, whereas the programmer 
has no way to detect an error condition if the CALL type entry is used. The details 
concerning error conditions and the interrogation of R will be found in Section D 
to follow. 

A. The Four Main Entries 

CALL PLOT 1 (NSC ALE, NHL, NSBH, NBL, NSBV; 


or 


R - PLOT 1 (NSCALE, NHL, NSBH, NBL, NSBV) 
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This entry is used to set up grid spacing and the total length and width of the graph. 

The location of decimal points, and the scale factors (powers of 10) for values of the 
ordinate and abscissa to be printed along the axes of the plot are also specified. If 
both standard grid an3 standard scale factors are desired (to be described subsequently), 
then this entry need not be taken. If several plots are to be printed, all having the same 
scale factors and grid specifications, then this entry need only be taken one time. 

' f , ' * 

CALL- PLOT 2 (IMAGE, XMAX, XMIN, YMAX; YMIN, IDIM) 


or 

R = PLOT 2 , (IMAGE, XMAX, XMIN, YMAX, YMIN, IDIM) . 

This entry clears the image region and prepares the grid lines of Ts and -'s, with +’s 
at grid line intersection points. It establishes internally formula for computing the 
location in the image region that corresponds to a given abscissa — ordinate (X., Y^) 

Dair. based , on maximum, and minimum values as entered through the calling sequence. 

r 

GALL PLOT 3 (BCD, X, Y, NDATA) 
or 

. R = PLOT 3 (BCD, X, Y, JMUATA) 

This entry causes a specified Hollerith plotting character to be placed in the appropriate 
place in the image region for each of the abscissa - ordinate pairs, which are stored 
in arrays X and Y. This entry may not be taken unless entry PLOT 2 has been taken 
previously. This entry may be taken repeatedly, if desired, in order to write several 
sets of data in the image region before it is read out on tape. 

CALL PLOT 4 (NCHAR, LABEL) 
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or 


R «* PLOT 4'(NCHAR, LABEL) 

This entry causes the contents of the image region to be written out on logical tape 6 
(unless a different tape has been specified by use of the entry PL TAPE, discussed 
later). The topmost line of the graph will appear one space below the last line 
previously printed. The ordinate label is specified, and it will appear to the left of 
the graph. Abscissa labels may be printed above or below the graph by use of standard 
printout statments. The entry PLOT 4 can be taken repeatedly to obtain several copies 
of the same graph, if desired. The. entry PLOT 2 must have been taken at least once 
prior to the entry PLOT 4. It is permissible to alter a graph (in the image region) by 
,.use of the entry PLOT 3 and then print the result using PLOT 4, without returning to 
the entry PLOT 2. 

B. The Arguments For The Four Main Entries Are Described Here 

Note that certain of them may be either integers or floating point quantities, as for 
example NHL (integer) or HL (floating equivalent of NHL). 

"NSCALE is an array of dimension 5 that supplies the subroutine with grid and 
scale factor information 

NSCALE(l) = 0, standard grid and scale factors (see note (a), to follow) 

?i o, grid and scale factors are as defined in NSCALE (2) - NSCALE (5) 

NSCALE(2) = I, scale factor such that printed values of the ordinate are 10 1 times 
the actual values 

NSCALE(3) = J, J digits will appear to the right of the decimal point in printed 
ordinate values (J'< 8) 

NSCALE(4) = K, scale factor such that printed values of the abscissa are 10 K times 
the actual values 
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NSCALE(5) = M, M digits will appear to the right of the decimal point in printed 
abscissa values (M< 8) 

NHL (or HL) is the number of horizontal grid lines (NHL > 0) 

NSBH (or BH) is the number of spaces between horizontal grid lines 
(NSBH >0) 

NVL (or VL) is the number of vertical grid lines (NVL > 0) 

NSBV (or SBV) is. the number of spaces between vertical grid lines 
(NSBV > 0, and NSVB*NVL £ 119) 

Note (a) . Standard scale factors correspond to values of I, J, K, and M of 0, 3, 0, 3, 
respectively. A standard grid is available which is 101 columns wide starting at 
column 13, and 51 lines long. It has 10 vertical grid lines and 5 horizontal grid lines, 
with 10 spaces between both horizontal and vertical grid lines . If both the standard 
scale factors and standard grid are desired, then the PLOT 1 entry need not be taken. 
It should be noted, however, that if PLOT 1 has been entered for the purpose of setting 
up nonstandard conditions, then the latter prevail until PLOT 1 is reentered with 
different arguments. • 

Any combination of vertical and horizontal grid lines may be specified, but the vertical 
grid always starts at column 13. It may extend as far to the right as column 132. The 
length of the grid is limited only by the dimensions of the image region in core. 

Note (b) . Integers are printed for the ordinate and/or abscissa scales if J < - 1 
and/or M ^ 1. 

Note (c). If a scale factor is such that overflow or underflow would occur, then the 
scale factor is treated as zero. The subroutine may shift abscissa scale printout in 
order to accommodate all of the desired numbers. If the value of an ordinate or 
abscissa is too large to be printed in the allowed space to the left of the graph it will 
be truncated from the left. 
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IMAGE (or AIMAGE) is an array } dimensioned IDIM, which is used as the 
Image region by the subroutine 

XMAX is the value of the abscissa at the rightmost grid line 

XMIN is the value of the abscissa at the leftmost grid line 
(XMIN < XMAX) 

YMAX is the value of the ordinate at the uppermost grid line 

YMIN is the value of the ordinate at the lowermost grid line 
(YMIN < YMAX) 

IDIM is the dimension of the array IMAGE, where IDIM = N*(NSBH*NHL + 1) 

rounded up for the IBM 7094, or 
rounded up for the IBM 360 

K = NSBV*NVL + 1 
(The square brackets in the formula for N signify "integral value.") 

Note (d). Set IDIM equal to at least 867 for the standard grid. (1326 for 360). 

BCD is the Hollerith plotting character, any character whatever (see 
note (e), to follow) 

X is the array (or single location) that contains the abscissa of the points to 
be plotted 

Y is the array (or single location) that contains the ordinates of the points 
to be plotted 

NDATA (or DATA) is the number of points to be plotted (NDATA >0) 


and 


and where 


N = -r 


K 

6 


N = ^ 


K 

4 
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Note (e). The plotting character may be loaded into cell BCD by use of a DATA 
statement, that is, 

DATA BCD/1HV 

or, alternatively, it may be entered as a Hollerith literal in the PLOT 3 entry state- 
ment, for example. 


CALL PLOT 3 (1H* X, Y, NDATA) 

(The arithmetic statement entry R = PLOT 3 ( ) may not be used in the latter case.) 

Note (f). If it is desired to write a single point at a time into the image array, set 
NDATA equal to 1. 

N CHAR (or CHAR) is the number of Hollerith characters, including blanks, in 
the ordinate label (N CHAR NHL*NSBH+ 1) 

LABEL is an array- which contains the Hollerith characters that constitute the 
ordinate lable to be printed along the leftmost grid line. (See note (g), below) 

Note (g). The ordinate label can be entered in array LABEL by use of the DATA 
statement, that is, 

DATA (LABEL (J), J = 1, 3) /l 7 HbbbORDINATEbL ABEL / 

Alternatively, it can be loaded as a Hollerith literal in the PLOT 4 entry statement, 
for example, 

CALL PLOT 4 (17, 17HbbbORDINATEbLABEL) 
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(The arithmetic statement entry, R = PLOT 4 ( ), may not be used in the latter 

ease.) 


R (See Section D, to follow) 


C. The Two Auxiliary Entries arid Their Arguments 


. . . CALL PL TAPE (NTAPE) 

This entry is used, prior to PLOT 4, if it is desired that the output be on a tape other 
than tape 6. Here, NTAPE is the tape number upon which the output is to take place 
(7, 9, or 11). The output tape number remains as set by this entry until PLTAPE is 
called again with a different value for NTAPE. 


CALL OMIT (NARG) 


This entry causes certain portions of the graph to be. deleted. It is taken prior to the 
entry PLOT 4. The settings for NARG are tabulated below 


NARG Effect 

1 Numerical values of the abscissa 

are not printed 

2 Numerical values of the ordinate 

are not printed 

3 Combines the effect of NARG = 1 

and NARG = 2 

4 The complete bottom horizontal 

grid line is deleted 

5 Combines the effect of NARG = 1 

and NARG = 4 

6 Combines the effect of NARG = 2 

and NARG = 4 

7 Combines the effect of NARG = 1 

NARG = 2, and NARG = 4 
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D. Error Conditions 


If arguments are incompatible with certain restrictions, then the message 

I PLOT I, or 
PLOT 2, 
etc. 

is printed, thus indicating the entry where the improper entry appears. If such errors 
occur in PLOT 1 or PLOT 2, subsequent entries into PLOT 3 and PLOT 4 are deleted 
with no further comment. The argument restrictions are 

NHL >0 

NSBH > 0 

NVL >0 

NSBV > 0 

NSBV * NVL 5= 119 
XMAX > XMIN 
YMAX > YMIN 


BCD must be a single left-adjusted Hollerith character 


If the user attempts to execute PLOT 3 or PLOT 4 without having previously executed 
PLOT 2, (or without execution of PLOT 2 subsequent to the execution of PLOT 1), 
the comment 


NO PREVIOUS PLOT 2 


will be printed. 

If the arithmetic statement. (rather than the CALL statement) is used for the four main 
entries, then the user may take appropriate action in the case of such errors as would 
lead to the printouts described above. An error in the arguments, or one due to the 
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unsuccessful completion of an earlier entry, will cause a + 1.0, +2.0, +3.0, or 
+ 4.0 to be loaded in cell R for entries PLOT 1, PLOT 2, PLOT 3, or PLOT 4, 
respectively. Cell R contains + 0.0, if no error condition arises. The user simply 
tests R following each attempt to enter the subroutine via PLOT 1, PLOT 2, PLOT 3, 
or PLOT 4. 

If any points are not plotted by PLOT 3, then the number - 3.0 will be found in R . 
This might arise if points lie outside the stated minimum and maximum limits of the 
ordinate and abscissa, and need not be considered an error. 
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9f~D 



SUBROUTINE PRINTI 




C-47 



SUBROUTINE REUSEI 
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SUBROUTINE REVLUS 















SUBROUTINE SHIFTS 
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SUBROUTINE SHIFTS (Cont. ) 
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SUBROUTINE SMOTHS 
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SUBROUTINE SMOTHS (Cont. 
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SUBROUTINE SMOTHS (Cont. ) 
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SUBROUTINE STGNMI 
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SUBROUTINE TCOSTS (Cont. ) 
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SUBROUTINE VEHRC 







Appendix D 
PROGRAM LISTING 


D.l DESCRIPTION 

A compile- and- save Fortran listing of each major subroutine in the optimal assignment/ 
budget smoothing program is included in this section. Storage requirements for each 
subroutine are listed on the output along with the code name under which the subroutine 
was saved. Total storage requirements are listed at the beginning of the sample case 
presented in Appendix B. Comment cards describing the logical function of each sub- 
section and defining any variables whose names are not mnemonic are liberally distri- 
buted throughout the deck so that new users may readily become familiar with the 
programs. 

Subroutines INPUT and PLOT are stored for general NASA use. Therefore, no listing 
is included here; however, a description of each is provided in Appendix C for com- 
pleteness. Subroutines AFRMT and PACK are written in 360 assembler language, so 
the listings are provided in that language . 

Labeled common blocks were used for storage whenever possible to avoid long argument 
lists for each subroutine. These blocks are found at the beginning of each listing. Sub- 
routine ASIGNS lists all subroutines in which each common block appears. The block 
labeled SCRACH stores variables only required in that subroutine or related sub- 
routines, so the same storage locations may be used for storing new variables in the 
next subroutine. All other labeled common blocks contain variables used in several 
subroutine’s . 

The listings are presented in alphabetical order according to subroutine name for easy 
reference . 
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D.2 COMPILE -AND -SAVE LISTING 
The compile -and-save listing follows. 


EXTERNAL symbol dictionary 


SYMBOL 

TYPE 

10 

A DOR 

LENGTH LO 

AFRKT 

SD 

01 

000000 

000040 


lOC 

OBJECT CODE 

ADDR1 

ADDR2 

STMT 

SOURCE STATEMENT 


000000 





1 

AFRHT 

CSECT 



000000 





2 


USING 

*,15 

REG 15 FOR BASE 

000000 

5020 

DO 1C 


0001C 

3 


ST 

2,2810,13) 

SAVE REG 2 

000004 

9812 

1000 


00000 

4 


LH 

1,2,011) 

LOAD ADDRESSES OF ARGS TO REGS 

000008 

5810 

1000 


00000 

5 


L 

1,0(0,11 

DATA TO REG 1 

oooooc 

4610 

F038 


00038 

6 


CVD 

1 , WORK 

CONVERT TO DECIHAL 

000010 

F332 

2000 F03D 

00000 

0003D 

7 


UNPK 

0(4,2) ,W0RK+5(3) UNPACK 4 DIGITS 

000016 

96F0 

2003 

00003 


8 


01 

3(2) ,X'F0» 

INSERT ZONES 

0000 1A 

4110 

0004 


00004 

9 


LA 

1,4 


ooooie 

95F0 

2000 

00000 


10 

LOOP 

CLI 

0<2),C'0> 

SCAN OUT LEADING ZEROS 

000022 

4770 

F032 


00032 

11 


BNE 

RETURN 


000026 

9240 

2000 

00000 


12 


HVI 

0(2), C • 

INSERT BLANK 

00002A 

4120 

2001 


00001 

13 


LA 

2,1(0,21 

BUMP POINTER 

00002E 

4610 

FOIE 


0001E 

14 


bct 

l.LOOP 

LIMIT TO 4 CHARACTERS 

000032 

5820 

D01C 


0001C 

15 

RETURN 

L 

2,28(0,13) 

RESTORE REG 2 

000036 

07FE 




16 


8R 

14 

RETURN 

000038 





17 

WORK 

DS 

D 







18 


END 
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cross-reference 


SYMBOL 

LEN 

VALUE 

DEFN 

REFERENCES 

AFRHT 

00001 

000000 

0001 


LOOP 

00004 

0000 IE 

OOIO 

0014 

RETURN 

00004 

000032 

0015 

0011 

WORK 

00008 

000038 

0017 

0006 0007 


no statements flagged in this assembly 

32 PRINTED LINES 


P88-LEVEL LINKAGE EOITOR DPTIONS SPECIFIED LIST.NCAL 


VARIABLE OPTIONS USED - SIZE-I 126976, 24576) 
I EH OOOO NAME H0X02ATIR) 

****H0X02AT NOW REPLACED IN DATA SET 


DEFAULT OPTION ( S ) USED 



FORTRAN IV G LEVEL 1. HOD A 


ASIGNS 


DATE = 71084 


15/15/24 


PAGE 00 


0001 


0002 

0003 

0004 

0005 


0006 

0007 

0008 

0009 

0010 


SUBROUTINE ASIGNS 

c 

C THIS PROGRAM generates the least cust assignment of launch 
C VEHICLES TO SPACE MISSIONS. A BRANCH AND BOUND TECHNIQUE IS USEO 

C TO REDUCE THE COMBINATORIAL COMPLEXITY OF THE PROBLEM. SEVERAL BRANCHE 

C ARE CREATED AT EACH NODE. ONE OF THE BRANCHES EXCLUOES THE NEXT 
C ' COST AND THE OTHERS ASSUME EXPENDITURE OF 'A NON-RECURRING COST 
C WITH 1-2 YEARS OF SUSTAN1NG COST AODED AT EACH NODE. 

C PENALTY FUNCTIONS ARE USED TO SHARPEN THE LOWER BOUND. 

C ****THIS VERSION USES RATE EFFECTS IN RECURRING COSTS**** 

C*****THIS .VERSION INCORPORATES PAD COSTS AND REUSABLE PARAMETERS****** 

C 

DOUBLE PRECISION NAME 
REAL NPERPD 
LOGICAL EXT.ACCL 

1NTEGER*2 YDPL ,NSYR, NSFX.NRFX ,NYRSST,NSTRFX,NPROG.KPROG,KOD£ , 

1 NYRSFX, MODEM, KODESP , NU , NBY, MODE, NOB, FI NISH, NSTG.NFML ,NFMU,KOOS, 

2 MAS,LABS,LABF,LABI ,LSA,NYS,KOOEF,LST,MST r IST, JST,KST,VEH,NYD, 

3 NMULT (NONRECt IS .MAT .LYR.LETT , LYD, MIN, NVS.MR V.NRP ,NYP ,KODEP . 

4 IVEHA,NTRIP,NPLS,NRR ,MR .NPSTG.NPAD ,NPF AM, NFS , NP INTL ,NP I NTU.MAPS , 

• 5 MAPF.MAPItKOUT, LTR.KODEV.NINTYR tNTGYTR , MAF,MAIC 

C 

C' STORAGE FOR TCOST, ASSIGN, AND MASTER AND SMOOTH, DAT1NS • 

COMMON/ SAVER/ RFIXDC 12,84) 

C STORAGE FOR DECISN, MATCH, PRINT ANO ASS 1GN, DAT I NS 

COMMUN/SAVDMP/ NFAM.KF LAG, FAM i 30 ) ,KODEF I 30) , FHNR ! 30 I .FHSUS I 30 ) , 
1JST(30),YDF(30) ,LSAI40) , SNR I 40) ,NYS I 40) ,DINT( 40) , S INTI 40 ) ,KST ( 40 ) , 

2 YD I 140), YDS I 40) , I STl 40 ) , FMSL SI 30, 2 ) , SUS LS I 40, 2 ) , S INTLS [ 40,2 > , 

3 LSTI 30 , 5 ) , YOPF! 30,5>,MST( 30, 10),YDPSI 30,10) 

C STORAGE FOR ASSIGN, STGNUM, AND REUSE , DAT INS , COMPARE 

COMMON/ SAVSAR/ POJI 3) ,SR J I 3, 3) ,NU( 40 ) .N8YI40) , NOB (40) ,RINT(40>, 

1 PLC1NT 140 ) ,XLT I 40) , PLCTI40) ,UPPI 40) , T AT 1 40) , TAMT ( 50 ) , SR 1 40 ,3 ) , 

2 MODE (40,3),PLC(40,3) 

C STORAGE FOR MASTER, ASS IGN, DEC ISN .STGNUM, SMOOTH ,AVAI L, MATCH, PRINT, CAPABL, 
C AND OUTPUT AND PDCS TI , DAT INS, COHPARE .TCOSTS ' 

COMMON/SAVE 1/ FINISH.NSTG.NCI, ILY.LABFI 30) , LABS! 40) ,LABI(40) , 

1 NFMLI40) .NFMUI40) , RODS I 40) , STS 1 41 ) , STG( 40 ) , VLRI 50) , WPRI 50 ) , 

2 RPLMI50) , HAS! 40,3) , RXD(12,50) 

C STORAGE FOR MASTER, ASSIGN, SMOOTH, TCOST, OUTPUT, SHIFT, CONSTR.OATINS 

C0MM0N/SAV2/EXT ,ACCL,KNSTG,KNFAM, KNCI ,KNP,KNMIS,JFLAG,TREF,NCSTR, 

1 PMAX.PMIN, ISTRT,IFIN,MAXITR,HITR,K0DESPI6) ,TITLC[ 10) .LEVELI20), 

2 CNTRVLI 201 .FIXED (20) ,K0DEM(50) ,NSYRI 50) ,NSFXt 50] , NAME! 56), 

3 YDPL I 56) .NRFXI50) .NYRSSTI 84) , NSTRFXI B4) .NYRSFXI 84 ) , SUS I 84 ) ,C 1 84 ) 
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OOU 

0012 

0013 

0014 

0015 

0016 


4, RI84), S(84),CS(90),NPR0G(90) , KPROGI 90) , KODEI90) 

C STORAGE FOR ASS IGN, CHOOZ , LBOUND, DEC ISN, PADCST, CAPABL, STGNUM, MASTER, SMOOTH, 
C PRINT, REVALU, TCOST, VEHREC , HATCH 1 , OAT INS , COMPARE 

COMMON/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,HOS,NMIS,NSPR,NPERPD(30I , 

1 PAD! 30) , LTRI50) , PLRI 50 ) ,ROIST( 56 ,4) , ALP 1 1 4 ,60 ) 

C STORAGE FOR ASSIGN, PDCST, CAPABL, DECISN, MATCH, PRINT, STGNUM, 0ATINS, COMPARE 
COMMON /S A V4/ MAP I 30, 3) , MA I C 1 40 , 3 ) , 

* NPAOI 2,60 I ,NPFAM (30,5),NPINTL(30,5), NPINTUI 30,5), 

1 NFSI40.4) .NPSTGI30, 10) ,MAPS( 30, 10) ,MAPF( 30, 10) .MAPI ( 30, 10) , 

2 PFAMD(30,5, 2),PF AM SI 30 ,5,2), PINTS! 30, 5, 2), PST GO l 30,10,2) , . 

3. PST GS I 30, 10, 21 

C STORAGE .'FOR ASS IGN, CAPABL , ANO AVAIL, DATINS 

COMMON/ SVACAV/ KNV.NOPT .KODEPI 30) ,RPL0I40) , I VEHA I 50) ,NTRIP 1 50 ) , 

1 NPLSI50) ,NRR I 50) ,MR(50> ,NVS( 60) ,MRVI 60) ,NRPI 60) ,B II 60) ,B2 I 60 ) , 

2 931 60 ) , B4{ 60) , KOOEVI 60 ) ,NYP( 2 ,60 ) , VM( 2,60) 

C STORAGE FOR MASTER , CHOOZ, ASS IGN, STGNUM, PADCST , LBOUND, REUSE, VEHREC , 

C OUTPUT, AVAIL, CAPABL, MATCH, SMOOTH, DEC ISN, PRINT, DATINS, COMPARE, REVALU, TCOSTS 

COMMON/ SAV ALL / LCK, S LO, NM, NEXO, NV, NUMD, MYRS, LZOPT ( 8) ,NYDl 46) , MAT 146 
II,SUST(46),DSt46),LYD(46),YD)46),IStl02),LYR(252),LETT(250), 

2 MINI250) ,YRLM(250) ,VEH(4,60) .NONRECI 120 , 20 ) .NMULTt 60 , 50 1 
C TEMPORARY STORAGE FOR ASSIGN.CHOOZ, STGNUM, LBOUND, VEHREC, AVAIL, PADCST 
C DATINS, COMPARE 

COMMON /TEMP /VNM I 2, 250 ) , I FLAG iK! .NEXT , LOUT, S A VS I 40) ,KOUT< 40) , 

1 NINTYRI40.20) ,NTGYTR (40, 20, 2 ) .RECUR 160,20,2) 

C OVERLAY STORAGE 

COMMON/SCRACH/ I P , I V, 1G, MOOX ( 3) ,NFX(4) ,NPFAX( 5) ,LSX(5 ) ,NPINXL(5 ) , 

1 NPINXUI5) ,NPSTX( 10) ,HSX( 10) ,LZ(20) ,PB ( 50) ,MISNI 50,20) , DUM ( 1382 ) , 

2 RCOST (60) ,RXM( 50) , I I ,KNSP,KLCK , IH,DUMM( 4192) 

C 


0017 

NEXD = 0 

0018 

IFLAG = 0 

0019 

KFLAG * 0 

0020 

IFIF1N1SH.GT.1) 

0021 

IFtFINISH.GT.l) 

0022 

KNV = 100 

0023 

11 NSTG = 0 

0024 

NFAM = 0 

0025 

NCI = 0 

0026 

NM I S = 0 

0027 

NSPR = 0 

0028- 

NUMD = 1 

0029 

NP = 0 

0030 

NV = 0 


GUESS » 1 • 75*GUESS 
GO TO 17 
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FORTRAN 


0031 
00 32 

0033 

0034 


00 35 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 


0054 

0055 

0056 

0057 

0058 

0059 


I-UKIKAN 

0060 

0061 

0062" 


0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0060 
0081 
0082 
0083 


IV G LEVEL 1. MOO 4 

C LCK « LEARNING CURVE KODEl - 1 IF HAVE LEARNING CURVE EFFECTS* =0 IF NONE 
LCK = 0 
C 

CALL OATINS 
C 

IF(MYRS.EQ.O) RETURN 
IK IM.LT.O) GO TO 3000 
C 

C ***StT UP MISSION MATRIX BY YEAR*** 

NM = 0 

DO 4 I = l.NMIS 
DO 4 J=1,MYRS 
IFIMISNtl, JI.EO.O) GO TO 4 
NM = NM + 1 

YRLM{NM>= FLOATIMJSNI 1,JJ ) * PBUI 
LETT(NH)= i 
LYRINMI * j 

4 CONTINUE - • 

C 

3000 IFIGUESS.GT.l .01 GO TO 3005 
GUESS = 1.0E15 
C 

3005 CALL CAP8U 
C 

16 WRITE! 6,2001) NSTG »NV «NFAM, NC I > NP, NMI5, MYRS » I LV, GUESS, NOPT ,NSOL, 

1 GRO 

IF(LCK.EO.O) GO TO 17 
C CALCULATE EXPONENT FOR LEARNING CURVE 
ALDG2 * AL0GI2.) 

IF ( IG.LT.O) GO TO 8030 
00 660 I* l, NSTG 

00 660 J=l,3 

IF 1M0DEU, J).EO.O.ANO.PLC! I , J ) .GT, .001 ) 
lPLC(I.J) « ALOGIPLC! I , J ) I/AL0G2 
660 CONTINUE 

8030 IF! 1 1 .LT.O.OR.NCI.EQ.O) GO TO 17 
DO 680 I = 1 ,NCI 
IFIPLCINTI 1 ) . GT, .001 ) 

IPLCINT(I) = AL0G1 PLC I NT 1 1 ) ) / AL0G2 
660 CONTINUE 
C 

17 IFINUMD.EO.Ol GO TO 305 
C 
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CALL OECSNI 
C 

IFCKFXAG.EQ. 1) GO TO 1 
C 

305 CALL AVAILI 
C 
C 

CALL STGNMI 
C 

GUESS1 = GUESS 
C 

620 CALL CH002S 
C 

IFINEXT.GE.500.0R, GUESS.LT. .0011 GO TO 2 
C I FLAG = NUMBER OF TIMES CHOOZ HAS BEEN CALLED 

1 FLAG = I FLAG + 1 
C 

CALL STGNMI 
C 

GUESS * GUESS 1 
IF ( IFLAG.EO.O) GO TO l 
I F ( I FLAG. EO. 100 1 GO TO 2 
GO TO 620 
2 MYRS = 100 
1 KNSTG * NSTG 
KNFAM = NFAM 
KNCI = NCI 
KNP = NP 
KLCK = LCK 
KNMIS = NMIS 
KNV = NV 
KNSP = NSPR 
RETURN 

2001 FORMAT U7H1NUMBER OF STAGES, 8X.I5/19H0NUMBER OF VEHICLES, 6X, 15/ 

1 19H0MUH8ER OF FAMILIES, 6X, I5/28H0NUMBER OF INTEGRATION COSTS, 12/ 

X 24H0NUMBER OF PAD COMPLEXES, 4X, 12/ 

2 I9H0NUHBER OF MISSIONS, 6X, I5/16H0NUHBER OF YEARS, 9X, 15/ 

3 17H0LAUNCH BASE YEAR,8X, I5/15HOTOTAL ESTIMATE, F17.2/14HOOPT ION N 
4UMBER, 11X.I5/ 2OH0NUMBER OF SOLUTIONS, 5X, 15/ 17HOINFLATION FAC 
5T0R, 12X,F4.3) 

END 


0084 
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TOTAL MEMORY REQUIREMENTS 0008BA BYTES 


FB8-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, HAP 

VARIABLE OPTIONS USED - SIZE'! 126976.245761 DEFAULT 0PT10NIS) USED 


I EH 0000 

NAME M0X02ASIRI 

1EW0461 

OATINS 

JEW 046 I 

. CAPBLI 

IEH0461 

I8C0M= 

IE* 0461 

DECSNI 

I EH 0461 

AVAILI 

IEW0461 

STGNMI . . 

IEW0461 

CHODZS 

I EM 0461 

ALOG 


MODULE, MAP 


CONTROL 

SECTION 


ENTRY 

NAME 

ORIGIN 

LENGTH 

NAME 

ASIGNS' 

00 

8BA 


SAVER 

SCO 

■ FCO 


SAVDMP 

1880 

14BC 


SAV&AR 

2040 

• *58 


SAVE 1 

3798 

FC4 


SAV2 

4760 

FEO 


SAV3 

5740 

980 


SAV.4 

60C0 

'3188 


SVACAV 

9248 

B48 


SAVALL 

9090 

3A1C 


TEMP 

D7B0 

4110 


SCRACK 

11 SCO 

6A60 



LOCATION NAME LOCATION NAME LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH 18320 

****M0X02AS NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEM0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL -WAS SPECIFIED. 


NAME 
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I 17) 


0S/360 FORTRAN H 


DATE 71.084/15.16.42 


COMPILER OPTIONS - NAME = MA IN ,0PT=02 , LlNECNTft44, SOURCE, BCD, NOLIST, NODECK .LOAD, NOMAP, NOEDIT , 10, NO 


ISN 

0002 

c 

SUBROUTINE AVAIL! 

*** ADO AVAILABILITY TO VEHICLE CAPABILITY HATRIX*** 

ISN 

0003 


REAL nperpd 

ISN 

0004 


INTEGER*2 NVS ,MRV ,NRP ,NYP,KODEP , I VEHA ,NTRIP,NPLS,NRR,HR , KODEV, 

1 F1NISH,NSTG.NFHL,NFHU,KOOS, MAS, LABS, LABF, LABI, VEH,NMULT,NONREC, 

2 NYO, IS.HAT,LYR,LETT,LYD,MIN,LTR 

ISN 

0005 


COMMON/ SAVE1/ F INI SH ,NSTG, NCI , ILY, LABF I 30 ) ,L ABS! 40) , LABI (40),- 

1 NFMLI40) ,NFMUI4O),KODS!40),STS(41) ,STG(40> ,VLR!50) ,WPR(50), 

2 RPLM t 50 ) ,MAS 1 40,31 , RX0tl2,50> 

ISN 

0006 


COHMON/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MOS,NMIS,NSPR,NPERPO(30) , 
1 PAD!30],LTR(50) , PLR ( 50 1 , ROI ST 1 56*, 41 , ALP I ! 4,60) 

ISN 

0007 


COMMON/ SVACAV/ KNV ,NOPT , KODEP! 30) ,RPL0|40)„ I VEHA! 50) »NTRIP 150 ) 

1 NPLS! 501 ,NRR(50I,MR(50),NVS( 601 ,MRV( 60) , NR Pt 60) ,B1!60> ,B2!60> 

2 B3 ( 60) , B4 ( 601 ,K00EV(6O) ,NYP( 2,60) , VH( 2 , 60 ) 

ISH 

0008 


COHMON/SAVALL/LCK,SLO, NM.NExD, NV , NUMO.HYRS ,LZOPT 18), NYD! 46 I , MAT 
1 1 ,SUST(46) ,0S!46),LYD(46),YD!46),IS(1021 ,LVR( 252) , LETT! 250 ) , 

2 MIN! 250) ,YRLM(250) ,VEH(4,60) .NONREC! 120,20 1 ,NMULT! 60,50 1 

ISN 

0009 

c 

COMMON/TEMP/ VNM1 2,250) , I FLAG.LZ 160 ) ,0UH(3603) 

ISN 

0010 


DO 39 J = I , NM 

ISN 

00 11 


KO = L YR ( J I 

ISN 

0012 


L = LETTIJ) 

ISN 

00 13 


. DO 35 I = l.NV 

ISN 

0014 


LZ( I) = 0 

ISN 

0015 


I FI ITEM! VM( 1, I ) ,L,1) .EQ.O) GO TO 35 

ISN 

0017 


K = ! 

ISN 

0018 


IF! LTR!L).£0.2) K * I £ NV 

ISN 

0020 


00 36 M = 1,20 

ISN 

00 21 


IF(HONREC(K,M).EQ.O) GO TO 37 

ISN 

0023 


NO = NONRECIK.H) 

ISN 

0024 


IFIKO.LT. NYO(NO) ) GO TO 35 

ISN 

0026 


I F 1 KO.GT .LYD f NO) I GO TO 35 

ISN' 

0028 


36 CONTINUE 

ISN 

0029 


37 LZ ( I 1 = 1 

ISN 

0030 


35 CONTINUE 

ISN 

0031 


CALL PACK! LZ,VNHt 1, J! ,NV* ,1) 

ISN 

0032 

c 

39 CONTINUE 

NM LESS THAN 136 FOR PRESENT F0RHAT5 

ISN 

0033 


284 WRITE (6,4000) 

ISN 

0034 


00 421 ITER = 1,3 

ISN 

0035 


KNM = MINOl ITER*45,NM) 

ISN 

0036 


K ft i C (ITER - 11*45 


ISN OOB7 
ISN 0038 
ISN 0039 
ISN 0090 
ISN 0091 
ISN 0092 
ISN 0093 
ISN 0099 
ISN 0095 
ISN 0096 
ISN 0097 
ISN 0098 
ISN 0050 
ISN 0052 
ISN 0059 
ISN 0055 
ISN 0056 


ISN 0037 


ISN 0058 
ISN 0059 


ISN 0060 
ISN 0061 


285 WRITE! 6,9002 1 (LETTIJ), J = K,KNM) 

00 520 I = l.NV 

IA=VEH(I,II 

I8=VEH(2,I) 

IC=VEh!3, I I 
1 D*VEH! 4, 1 I 
00 286 J = K.KNM 
L- = J-KC1 

286 LZILI - ITEMCVNMt 1,J>, I ,1) 

WRITE (6,9100) I.STGIIAI ,STG1 IB),STG( IC) ,STG( I D) , ( LZ( J ) , J*l,L> 

920 CONTINUE 
IFINM.LE.KNM] RETURN 
IFtITER.EO.l) WRITE! 6,900 1 ) 

IF! ITER. EO. 2) WRITEI6,9003) 

921 CONTINUE 
RETURN 

9000 FORMAT I 1H1 , 39X , 51HV EHICLE/MISSION C A,P A B I L t 

1 T V /56X , 30H! 1 = POSSIBLE, O = IMPOSSIBLE J /I HO, 43X, 10I2HI ], 

2 10! 2H2 !,10(2H3 ),6(2H5 )/18H VEHICLE / HISSION, 9X,4( 20H1 234 
35 6 7 8 9 0 I ,9H1 2395//) • 

9001- FORMAT! 1H0/ 1H0, 26X,9 ( 2H9 ),IO!2H5 ),10!2H6 ),10(2H7 ),10(2H8 ), 

1 2H9 /18H VEHICLE / MISSI0N,9X,9H6 789 0.4I20H 12395678 

29 0 1 // 1 

9002 FORMAT I 1H0.7X , 19HHI SS ION NUMBER, 4X.45I2) 

9003 FORMAT ! 1H0/ 1H0,44X,’36<2H1 )/ 27X.9I2H9 ),10I2H0 ),10!2H1 1, 

1 10I2H2 ),6(2H3 )/ 

2 1BH VEHICLE / MISSION, 9X,9(20Hl 2395678901, 

3 9H1 2 3 9 5//> - , 

9100 FORMAT ( 1H , 12, IX, 4! A9, 1X1 , 2X, 4512) 

END 


****** END OF COMPILATION ****** 
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F88-LFVEL LINKAGE EDITOR OPTIONS SPECIFIED LI ST,XREF,HAP,NCAL 
VARIABLE OPTIONS USED - SI Z£*C 126976. 245761 
I EH OOOO NAME M0X02ALCR) 

1EW0461 ITEM 
IEW0461 PACK 
IEW0461 IBCOM= 


DEFAULT OPT IGNIS 9 USED 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 





NAME • 

ORIGIN 

LENGTH 

NAHE LOCATION 

NAME LOCATION 

NAME 

LOCATION 

NAHE 

AVAIL! 

00 

718 






SAVE 1 

718 

FC4 






SAV3 

16E0 

980 






SVACAV 

2060 

848 






SAVALL 

2BA8 

3A1C 






TEMP 

65C8 

4110 






LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL 

SECTION 


2E8 SAVE1 

2F0 SVACAV 

2F8 SAVALL 

300 ITEM 

308 I8C0M= 

260 SAVALL 

ENTRY ADDRESS 00 

TOTAL LENGTH A6D8 

****M0X02AL NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


I EW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVEO EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


SAV3 

SAVALL 

TEMP 

PACK 

TFHP 


117) 0S/360 FORTRAN H . DATE 71.084/15.17.53 

COMPILER OPTIONS - NAME= MA IN,OPT=02, L INECNT=44, SOURCE, BCD, NOL 1ST .NODECK, LOAD, NOMAP, NOEDIT ,!D,NO 
ISN 0002 SUBRnilT INF CAP8LI 

C VEHIGLF l>AIA IS INPUT 

C THE ORIGINAL CAPABILITY MATRIX BETWEEN VEHICLE ANDMISSION IS SET UP 
C 

ISN 0003 REAL ISP, LENT, NPERPD 

ISN 0004 INTEGERS LTR , KODEV, NVS ,MRV,NRP,N YP.KODEP, IVEHA ,NTR I P ,NPLS ,NRR, 

1 MR.NPSTG, NPAD,NPFAM,NFS,NPINTL,NPINTU, MAPS, MAPF, MAPI .FINISH, 

2 NSTG.NFML.NFMU.KODS, MAS, LABS, LABF, LABI, VEH,NMULT,NONREC,NYD, 

3 I S',MAT,LYR,LETT,LYD,MIN,MAF,MAIC 

ISN 0005 COMMON /SAVE 1/ F INI SH ,NSTG,NCI , ILY , LABF ( 30 ) ,L ABS I 40 I , LAB I (40 ) , 

‘ 1 NFMLI40) .NFMUI40) , KODS (40) ,STSI41) , STGf 40) ,VLR [ 50) ,WPR 150), 

2 RPLMI50),MASI40,3) , RXD!12,50) 

ISI)I 0006 COMMON/ SAV3/GR0, GUESS ,LP,NSOL ,MSOL,NP,MOS,NMI S , NS PR, NPERPD I 30) , 

l PAD I 30),LTRI50),PLR(50),RDISTI56,4),ALPII4,60) 

ISN 0007 COMMON/ S A V4/ MAFI30.3), HAICI40.3), 

* NPADI 2,60) ,NPFAM( 30,5) .NPINTU30, 5 1 ,NP INTUI 30,5 ) , 

1 NFS! 40, 6) .NPSTGC30, 10 ) , MAPS { 30 , 10 ) , MAPFI30, 10 ) .MAPI ( 30 , 10 ) , 

2 PFAMD 1 30, 5,2) ,PFAMS< 30,5, 2 ) .PINTS! 30, 5, 2) ,PSTGO( 30, 10,2) , 

3 PSTGSI 30,'10,2 I 

ISN 0008 COMMON/SAVALL/LCK, SLOtNM.NEXO, NV,NUMD,HYR$,LZQPTt 8) ,NY0(46 ) ,HAT (46 

1 1 , SUST 1 46) , DSC 46) ,LY0(46) , YDI 46) , 15 ( 1 02 ) , LYR I 252 ) , LETT! 250 ) , , 

2 MINI 250) ,YRLMI250),VEHI4,60) .NONRECt 120,20) ,NMULT( 60, 50) 

ISN 0009 COMMON/ SVACAV/ KNV.NOPT.KODEPI 30) .RPLOI 401 , 1 VEHAI 50) ,NTR1P 1 50) , 

1 NPLSC 50) .NRRI50) ,MR( 50) ,NVS( 60) ,HRV(60I ,NRP( 60) ,B1 < 60) ,82160), 

2 ■ B3 1 60) , B4 1 60 ) , KODEV C 60) ,NYPI 2 , 60) , VMI 2,60) 

ISN 0010 COHMON/SCRACK/IP.tv, IG ,NPAX 1 2 ) ,NEH( 4) ,NST<41 ) , THRTC 41 ) ,DI AMI41 ) , 

1 TSL I 41 ) , LENT I41>,WTFU(41)»WT!N(41),]SP(41),MZ(50),LZ(50), 

2 NYPX ( 2 ) , DUM I 6369 ) 

C 


ISN 

0011 


IFIIV.LT.OI GO TO 14 

ISN 

0013 


DO 2 I = 1.60 

ISN 

0014 


ALPK 1. I) = .05 

ISN 

0015 


ALP 112,1) = .20 

ISN 

0016 


ALPI (3,1) = .50 

ISN 

0017 

2 

ALPH4.I) = .25 

ISN 

0018 

14 

DO 281 J « 1,61 

ISN 

0019 


IFCIV.LT . 0. AND, J.GT.KNV) RETURN 

ISN 

0021 


IFC IV. LT.O. AND.IG.LT. 0) GO TO 27 

ISN 

0023 


IFCIV.LT. 0) GO TO IS 

ISN 

0025 


REA0I5.106) CNEHCI1, 1= 1,4) ,B1 ( J) , B2< J 1 ,B3C J ) ,B4t J ) ,KOV 

ISN 

0026 


IFC KOV.EQ.O) GO TO 5002 

ISN 

0028 


KODEV ( J ) = KOV 
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ISN 0029 
ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0034 
ISN 0033 
ISN 0036 
ISN 0037 
ISN 0038 
ISN 0090 
ISN 0091 
ISN 0092 
ISN 0099 
ISN 0095 
ISN 0097 
ISN 0098 
ISN 0099 
ISN 0050 
ISN 0031 
ISN 00 52- 
ISN 0059 
ISN 00 55 
ISN 0057 
ISN 0058 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0069 
ISN 00 65 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0073 
ISN 0075 
ISN 0076 
I5N 0077 
ISN 0079 


ISN 0080 
ISN 0082 
ISN Q0B3 
ISN 0069 
ISN 0086 
ISN 0087 
ISN 0089 
ISN 0090 
ISN 0091 
ISN 0093 
ISN 0095 
ISN 0096 
ISN 0098 
ISN 0100 
ISN 0102 
ISN 0109 
ISN 0106 
ISN 0108 
ISN 0109 
ISN 0110. 
ISN Oil! 
ISN 0112 
ISN 0113 
ISN 0119 
ISN 0116 


ISN 0117 
ISN 0118 
ISN 0119 

ISN 0120 
ISN 0122 

ISN 0123 
ISN 0125 
ISN 0126 
ISN 0127 
ISN 0126 
ISN 0129 
ISN 0130 
ISN o'* 1 


00 16 K = 1,9 

16 VEHI K , J ) = NEH(K) 

RF AD I 5 * 108 ) NSX,MVX,NPX, INPAXlt), 1 = 1 ,2) , ! NYPXI II , ,1=1 ,2) , JK6Y 
Dll 17 I , 1,7 
NPALM l,J) = NPAXII) 

17 NY PI I,J) = HYPXI I) 

NVSIJ) = NSX 

HR V I J 1 = MVX 

NRPIJ) = NPX 

IF (JKEY.EO.O) GO TO 15 

RF AO 15,1191 (ALPI(ItJI>I=l»9) 

15 00 26 I = 1,9 

IFIVEHI I,J),EQ.O) GO TO 27 
DO 25 K = 1,NSTG 

IFIVEHI !,J». NE.KOOSIKI) GO TO 25 
VEHI i,JI = K 
GO TO 26 

25 CONTINUE 

26 CONTINUE 

27 NY = j 

IF! IV.LT.O.ANO.IIP.LT.O.OR.NP.EQ.QI) GO TO 9007 
00 9008 I = 1,2 
IF (NPADt I »J! .EQ.O) GO TO 9008 
DO 9009 K = X,NP 

IF INPAOU.Jl.NE.KODEPtIO) GO TO 9009 
NPAOI I , J) = K 
GO TO 9008 
9009 CONTINUE 
9008 CONTINUE 
9007 Cl = Bl(J) 

C2 = B2IJ1 
C3 = B3IJ1 
C9 = B9IJ) 

DO 23 I = 1 , NH 1 S 
NKULT ( J, I ) = 1 
LZI I ) - 1 

IF (IVEHAU).EO.Ol GO TO 21 
IF UVEHAt n.NE.KOOEVIJI) GO TO 8024 
GO TO 28 

21 VLX=VLR!I)-25573. 

IF! VLX.GE.C4-.01 1 GO TO 8024 
WP=EXP l C l-C2*VLX-C3/< C4-VLX) 1 


’ IFIRPLMI 1 I.LT.1.0) GO TO 23 

00 22 JJ = 1,4 
JJJ * 5-JJ 

IFIVEHIJJJ , J } . EQ. 0) GO TO 22 
LL = VEHI JJJ ,J> 

IFIRPLntLD.LT. .001) GO TO 8024 
GO TO 23 

22 CONTINUE 

23 IFIWP.GE.WPRd) I GO TO 24 

IFIWP. L6.. 001. OR. WPRIII/WP.GE. 100.1 GO TO 8024 
. NMULTU.n = INTIHPRI I I /H P £ .99) 

IF I NMULTt J, I ) .GT .NTRIP 1 1 ) ) GO TO 8024 

24 IF (N0PT.N6.3I GO TO 28 

IFINPLS(I) .EO.O) GO TO 8023 
IFINPLSI It .NE.NVSI JT1 GO TO 8024 

8023 IF INRR(I) .GT. NRPIJ) ) GO TO 8024 

IF (HR! I ) • EO.O.OR.HRVfJ) .EQ. 2 ) GO TO 28 
3024 L2U) = 0 
28 CONTINUE 

CALL PACK! LZtVMI l, J) ,NM!S,1 ) 

281 CONTINUE 

WRITE! 6, 113) 

99 RETURN 

5002 I F ( N0PT.NE.21 RETURN 
WRITE! 6, 111) 

C CAROS MUST BE IN SAHE ORDER AS INPUT STAGE CAROS 

C ALL STAGES NOT TO BE USEO IN MATCHING SCREEN MUST BE AT .END OF DATA SET 
NTG = NSTG Cl . 

00 30 I = 1,NTG 

READ! 5, 1091 J.NSTII) ,ThrT( I ) . DTAH! 1 1 ,.TSL( I I .LENT III ,WTFUI I), 

1 W T IN ( I I , ISP I 1 1 
IFtJ.EO.OI- GO TO 31 

WRITE! 6, 1121 I , NST! t ) ,THRT (I),DIAMII),TSL(I I , LENT! 1 1 ,WTFUI 1 1 ,WTIN 
1( II.ISPU) 

IF! J.NE.KOOSI 1 1 ) GO TO 5005 

30 CONTINUE 

31 CAU HATEI 

5004 RETURN 

5005 WRITE! 6,110) 

RETURN 

106 FORMAT !41 2,4E 13.6, 18X, 1 2 1 
inn PflBNATI I 1 1 « * 
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ISN 0132 109 FORMAT! 14,15, 7F10.0) 

ISN 0133 110 FORMAT 1 27HOST AGE CAROS IN WRONG ORDER) 

ISN 0134 111 FORMAT! 1H1.8H STG NST, 9X,4HTHRT,9X,4HDIAH,9X ,4H TSL»9X,4HLENT,9X, 

1 4HWTFU,9X,4HWTIN,10X,3HI5P//) 

ISN 0135 112 F0RHATI1H0,2I4,7F13.2) 

ISN 0136 113 FORMAT I28HOHORE THAN 60 VEHICLES INPUT) 

ISN 0137 114 FORMAT I3X.4F5.2) 

ISN 0138 END 

****** END OF COMPILATION ****** 


F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, HAP, NCAL 

VARIABLE OPTIONS USED - SI ZE*! 126976,24576) OEFAULT OPTION(S) USED 

IEWOOOO NAME M0X02CHR) 

IEW0461 PACK 
IEW0461 MATE I 
IEW0461 EXP 
IEW0461 IBCOM= 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

CAPBLI 

00 

B30 








SAVE 1 

B30 

FC4 








SAV3 

1 AF8 

980 








SAV4 

2478 

3188 








SAVALL 

5600 

3A1C 








SVACAV 

9020 

B48 








SCRACH 

9B68 

6A60 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

220 

SAVE1 

SAVE1 

224 

SAV3 

SAV3 

228 

SAVA 

SAV4 

22C 

SAV4 

SAV4 

230 

SAV4 

SAV4 

234 

SAVALL 

SAVALL 

238 

SAVALL 

SAVALL 

23C 

SVACAV 

SVACAV 

240 ' 

SCRACH 

SCRACH 

244 

PACK 

SUNRESOLVED 

248 

' MATEI 

tUNRESOLVED 

24C 

EXP 

SUNRESOLVEO 

250 

IBCOM= 

tUNRESOLVED 

140 

SCRACH 

SCRACH 

148 

SAV3 

SAV3 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

105C8 





■***MOX02CI NOW 

REPLACED IN 

DATA SET 





DIAGNOSTIC MESSAGE DIRECTORY 
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FORTRAN 

0001 


0002 

0003 

0004 

0005 


0006 

0007 

fjOOH 


0000 
00 10 
oo II 
0012 

0013 

0014 


0015 
00 16 
0017 
00 IB 
0019 
00 20 
0021 
00 22 
0023 
00 24 

0025 

0026 
0027 


FORTRAN 


0028 

0029 

0030 
00 31 

0032 

0033 

0034 
00 35 

0036 

0037 

0038 
CO 39 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 
00 53 

0054 

0055 

0056 

0057 

0058 
00 59 
0060 
0061 


0062 

0063 

0064 


IV G LEVEL 1, HOD 4 CHOOZS DATE = 71085 14/55/29 

1 

SUBROUTINE CHOOZS 

C DETERMINE OPTIHUH VEHICLE TO MISSION ASSIGNMENT 
C 

INTEGERS KDUT , LTR , VEH, NMULT ,NONREG,NYU, I S , MAT , L YR.LETT ,LYD ,M IN, 

1 HINOPT.MURE.NSAVE.'NADD, NX.NINTYR.NTGYTR 
REAL NPERPD 

C 

COMMON/ SA V3/GR01GUESS, LP,NSOL,HSOL,-NP T MOS,NM IS, NSPR, NPERPD 1 301, 

, 1 PADI30),LTR(50),PLR(50l,RDISTt56,4),ALPII4,60) 

COMMON/ SAVALL/LCK,SLO,NM,NEXD,NV, NUMD , WYRS , LZOPT I B 1 ,NYD!46) , MAT (46 
1 1 • SUST (46l,DS(46)iLYDI46l , YOt 461 , 1 S ( 102 1 i LYRt 252 ) ,LETT( 250 1 , 

2 MINI 250) ,YRLH< 2501 ,VEH I 4 ;60 ) TNONREC ( 1 20 , 20 1 , NMULT 1 60 , 50 1‘ 

COMMON /VARNCE/KSTAT.VARII 40 1 ,VARFI 50), VARMI 56) .FMVARI 2,301 , 

1 FiVAR(3,40),pLVARI3,56),SVAR(5,401 

CUMMIIN/TI MP/VNMl 2,250), I FLAG, K! .NEXT ■ LOUT, SAVSI 40 ) ,K0UT(40), 

1 NINTYR(40;20) , NTGYTR 1 40 , 20, 2 1 1 RECUR ( 60, 20 i 2 1 

C(IMMUN/SCRACH/EXTRA,NAOD,NX,HORE(50) ,Lz(46) ,WI 500) , W2I 500) , 

1 TOSI 5001 ,HR(499) , ZI500) .COST I 2,250) .KINQPTI 246,9 ) ,NODE I 5 ,500) , 

2 NP0S,SIGSQ(9) ,ETC(9), 

4 NC0ST,LB,KX,KZ,HSAVE( 10) , KEEP! 40) ,MZ(60) ,DUM 
C 
C 

IF(MYRS.GT.IO) GO TO 2 
K I = 1 
KNEX = MYRS 
GO TO 7 

2 KI = 2 

KNEX * (MYRS + 11/2 
C 

C *** INITIALIZE FUNCTIONS *** 

7 NEXT* 1 
NX* I 

KPNX * 10 

naoo = o 

NPOS = 0 

DO 16 I * l, NUMD 

16 LZt 1) = 15 

CALL PACKILZ,N0DE(1,1) )NUMD,4) 

00 17 I = 1,8 

17 LZOPT l 1 1 = 0 

DO 400 I = 1,50 
400 MORE! 1 1 = 0 

IFILP.GT.Ol WRITE 16,205) 


IV G LEVEL 1 ,\MUD 4 CHOOZS DATE = 71085 -14/55/29 


C *** FIND will = SUM OF COLUMN MINIMUMS OF FIRST CASE *** 

W< 1-1*0. 0 

W2(l> = 0.0 

TOSI 1). = 0.0 

DO 19 J*1,NM 

COST 1 1 , J ) = 1.0E30 

COST I 2, J) = 1.0E30 

IY = LYRIJ) 

I F C IY.GT.MYRS) GO TO 325 
JX = LETT I J ) 

ITR * LTR(JX) 

CALL UNPACK! MZ , VNM1 1 , J) ,NV ,1) 

DO 18 1=1, NV 

IFIMZI 1 1 .EQ.O) GO TO 18 
X = NMULT II ,JX) 

CX * YRLM(J)*RECURU ,1Y,1TR)*X 
IFICX.GE.CnSTI2,J)l GO TO 18 
IFICX.LT. COST I 1, J) ) GO TO 176 
COST I 2 , J 1 = CX 
GO TO 18 

176 COST l 2 , J 1 = COSTIl.J) 

COST I 1 , J 1 = CX 

MINIJ) = I 

18 CONTINUE 

IFICOSTI 1,J).LT.1.0E25) GO TO 20 
325 YRLMI J ) *0.0 
MINIJ) = 0 
COSTIl.J) * 0.0 
COST 17,-1) = 0.0 
20 W71 1 ) » W2U) * COST! 2, J ) 

19 HI 1) = HI 1) + COSTIl.J ) 

IF (NUMD. NE .0) GO TO 25 
WRITEI6.211) Will 

211 FORMAT! 1H1//25H PROGRAM RECURRING COST =, F12.2) 

RETURN 

C • • . 

C PRESET SMALL SUST COSTS TO ZERO SO ALGORITHM IGNORES THEM IF HSOL.NE.l 
C LOUT = NUMBER OF SUST COSTS GT O WHICH HAVE BEEN SET TO 0 

C 

25 IFUFLAG.eo.O) LOUT * 0 

I FI MOS .FO.O.OR.MQS. EQ.2) GO TO 26 f 
CALL UNPACKI LZ, NODE! 1,1) .NUMD, 4) 



FORTRAN IV G LEVEL 1. HOD A 


CHOOZS 


DATE = 71085 


14/55/29 


PAGE 00 


0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 
0(180 
0081 
00 82 

0083 

0084 
0086 
0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 


0102 
, 0103 

FORTRAN 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 
'0119 
0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 


D0‘ 401 I = l.NUHD 
401 KOUTt 11=1 
CALL PDCST1 
WRITEI6.211) HU) 

CALL 0UTPT1 


GO TO 29 

CALL UNPACK! LZ.N0DE1 1*1) .NUHO .41 
GO TO 22 


RETURN 

•26 IF(HS0L.E0.1) ; 

177 IF(NSOL.LE.l) 

I F ( IFLAG.GT.O) 

00 21 1 = l.NUHD 
21 K0UTU1 = 0 
X = MYRS 
G = 8.0/X 

IFIGUESS.LT.1.0E141 G = GUESS/ I 150.0*X) 
IFISLU.GT.O.OOl) G = SLO 
00 27 I = l.NUHD • 

1FISUSTI I). IT. .001) GO TO 27 
IFISUST1 ! l.GT.G) GO TO 27 
LOOT = LOUT + 1 
KI)UT(I) = LOUT 
SAVSILDUT) = SUSTII) 

SIJSTI I) = 0.0 
IFIDStn.GE.l.) GO TO 27 
IF(NSOL.LE.l) LZII) = KNEX 
IFINSOL.LE. 1) CO TO 27 
KOUill) = 0 
SUSTU) = SAVSCLOUT) 

LOUT = LOUT - 1 

27 CONTINUE 

28 1 FI LOUT .GT.O.ANO.NSOL.LE.l) 

GO TO 29 

22 I F I LOUT .EO.O.OR.NSOL.GT. I ) 

■ DO 23 I = l.NUHD 

IFIKOUTII ! . E0.0.0R.DS1 1 ) .GE.l. ) 

. LZIII = KNEX 

23 CONTINUE 

CALL PACK! LZ .NODE I 1.1). NUMD.4) 


CALL PACK! LZ .NODE! 1.11 .NUM0.4) 
GO TO 29 


GO TO 23 


C 

C 


PICK COST TO CONSIDER NEXT 
-29 NCOST = 0 
NKEY = 0 


**# 
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FMAX = -1.0E35 
IF (KPNX.NE.NX) 

1CAU UNPACK ( LZ.NODEI 1, NX ), NUMD.4) 

30 DO 35 NIC = l.NUHD 
IF(LZiNIC) .LT.15) GO TO 35 
NKEY = NKEY + 1 
IFIKPNX.EO.NX) GO TO 300 
MR IN I C ) = 0.0 

00 33 J= l.NH 

IFIYRLHI J1.LT..001) GO TO 33 
CALL IINPACKIHZ..VNHI 1, J) ,NV ,1) 

CHIN = 1.0E30 ’ 

KO = LYR(J). 

JX = LETT I J ) 

ITR = LTR(JX) 

DO 32 II = l.NV 

IFIMZI III. EO.O) GO TO 32 

1 = II 

iFim.Eo. 2 i i = n + nv 

DO 31 M = 1, 20 

IF [NONRECI 1 .M) .EO.O) GO TO 315 
NO = NONRECII ,H) 

IF(NO.EO.NIC) GO TO 32 
IFIK1*LZ(N0> .LT.KOI GO TO 32 

31 CONTINUE 

315 X = NHULTtll.JXI 

CX = YRLHI J!*RECURU1.K0.1TRI*X 
IFICX.LT.CMIN) CHIN = CX 

32 CONTINUE 

HRINIC1 = HRINIC) + CHIN 

33 CONTINUE • . 

300 PF = HRINIC) - MINX) 

IF1PF.LT. .001) GO TO 35 

301 IFISUSTINICI . GE..001) OF = DS(NIC)*0.5 + SUSTINIC) + PF 

1 -1.0E4/I SUST(NIC)«*4) 

IFISUSTINICI. LT.. 001) OF = 0.5»DS(N1C) + 4.0 + PF 
IFISUSTINICI .LT.. 001. AND.PF.GT.1.0E10) OF = 1.0E34 
IFIDF.LE.FHAX) GO TO 35 
FHAX = OF 
NCOST = NIC 

35 CONTINUE 

36 I FI NCOST .EO.O ) GO TO 73 
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0144 

0145 

0146 

0147 
014ft 
0140 

0150 

0151 

0152 

0153 

0154 

0155 

0156 
0137 

0158 

0159 

0160 
0161 


0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 


C ALLOCATF SPACE FOR NEW NODES 

C 

295 IFISUSTINC0ST1 .GE..001) J=0 + (NYD(NCOST) - 11/K! 

IFISUSTINCOSTI .LT..0011 J = KNEX - 1 
IFINEXT.EO. 1) GO TO 41 
DO 40 I * 2, NEXT 
K = NEXT +2-1 
IFIZlkl.LE. GUESS) GO TO 40 
J = J+i 

IF(SUSTtNCOST) .GE..001 1 NSAVE(J) = K 
.1 F I SUST(NCOST) .LT..001) NSAVEI 1 ) = K 
.IF! J.EO.KNEXI GO TO 44 

40 r.ONTINUF 

41 IF! J.EO.KNEXI GO TO 44 
J = J+1> 

NFXT=NEXT+l 

IFtNEXT.E0.500) GO TO 74 
' IFISUSTINCOSTI ,GE.. 001) NSAVEIJ) = NEXT 
IFISUSTINCOSTI. LT.. 0011 NSAVE(l) = NEXT 
GO TO 41 
C 

C *** BRANCH WITH VARYING YEARS OF SUSTAINING COST *** 

44 DO 52 l» 10 

IFISUSTINCOSTI. GE.. 001. AND. K. LT. l+INYDI NCOST l-l) /K! ) GO TO 52 
KX.=NSAVEtKI 

IF! !K-1)*KI.LT .L YD! NCOST ) ) GO TO 45 
W(KX) = 1.0E30 
ZtKX) *20.0630 
GO TO 509 

45 DO 46 1 = 1,5 

46 NODE I I ,KX) =NODE 1 1 , NX) 

LZ (NCOST )=K-1 

IF ( K.EO. 1 + !NYDINC0STI-1)/KI) LZINCOST) = 0 
CALL 'PACK! LZ,NOOE 1 1 ,KX ) , NUMD,4 ) 

LB = K-l ' 

C 

CALL L BOND 3 
C 

509 IFISUST(NCOST).LT..001) GO TO 53 
IF(Ki*K.GE.HYRS) GO TO 53 
52 CONTINUE 
C 

C *** BRANCH INCLUDING NCOST AND ALL SUSTAINING - PUT IN NODE NX ♦«* 


FORTRAN IV G LEVEL 1, HOD 4 CHOOZS DATE = 71085 14/55/29 PAGE Ot 


0179 

0180 
01B1 
0182 

0183 

0184 

0185 


0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 


0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 


53 LZINCOST) = I LYO! NCOST) + KI - 11/KI 
CALL PACK ( LZ.NODEI 1,NX) iNUHD,4) 

IFIWINXJ.GT.WIKX)-. 0001. AND. W2 1 NX) . GT.W21 KX I-O. 00011 L8= 50 

IF (HI NX) .GT.WIKX>-.0001.AND.W2(NX) .GT. 1. 0E25 .AND. W2IKX)-W2 INX ) .LT . 
t 1.0E25) LB= 50 
KX = NX 

KZ = LYO 1 NCOST) 

C 

CALL' LB0ND1 
C 
C 

C PICK NEXT NODE FOR BRANCHING AS THE ONE WITH. LEAST LOWER BOUND Z 
55 KPNX = NX 
NX = 1 

DQ 59 I=2,NEXT 
IFIZINXI.GT.ZID) NX = I 

59 CONTINUE 

IFIZINX) .LE. GUESS) GO TO 29 
IF I NADD.GT .0) GO TO 60 
WRITEI6.202) 

GUESS = 0.0 
RETURN 

60 WR I TE I 6,206) ZINX) 

GO TO 109 

74 WRITE! 6, 203) 

RETURN 

C 

73 IFINKEY.FO.O) GO TO 75 
DO 37 1 = 1 , NUMD 
IFIL2ID.E0.15) LZII) = 0 
37 CONTINUE 

CALL PACK! LZ,NQDE! I ,NX) , NUMD, 4) 

C 

C ASSIGN VEHICLE TO MISSION 

75 DO 80 J= 1 ,NH 

IFIYRLMIJ) .LT. 0.0001) GO TO 79 
CALL UNPACK! MZ , VNMI 1 , J) ,NV ,1) 

CM1N=1.0E30 
KO = LYR(J) 

JX = LETT ( J ) 

ITR = LTRIJX) 

DO 78 II = 1,N V 
IFtMZIIll.E0.01 GO TO 78 
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0219 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
0223 
0229 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 
023 A 

0235 

0236 
02 37 
0238 
02 39 


0290 

0291 

0292 

0293 

0299 

0293 

0296 

0297 

0298 

0299 

0250 

0251 

0252 

0253 


FORTRAN IV 

0259 

0255 

0256 

0257 

0258 

0259 , 
0260'. 

0261 

0262 

0263 

0269 

0265 

0266 


0267 

0268 

0269 

0270 

0271 

0272 


0273 

0279 

0275 

0276 


0277 

0278 

0279 


I = II 

IFUTR.E0.2) I = II + NV 
00 77 K=l,20 

IFINONRFCt I.KI.E0.01 'GO TO 775 
NO =NONRECU.K) ' ' 

.IF1KI*LZ(NO).LT.KO) GO TO 78 

77 CONTINUE 

775 X = NMULTIII.JX) 

CX*YRLM(J)*RECURI Il.KO, ITR1*X 
IF(CX.GE.CHIN) GO TO 78 
CM 1 N=CX 
MINI J 1 = 1 1 

78 CONTINUE 
GO TO 80 

79 MINIJl = 0 

80 CONTINUE 

IFtNPGS.FO.Ol GO TO 85 
00 355 I = 1,50 
IFIMUREm.E0.01 GO TO 356 
IFIMOREU l.EO.NXI GO TO 359 

355 CONTINUE 

356 00 82 NA = l.NPOS 
00 81 J = 1 , NM 

IF(M1N(J).NE.M1N0PT(J,NA1) GOTO 82 

81 CONTINUE 
IF(LP.GT.O) 

1WRITE I 6,209 1 NX , Z ( NX I , NA 
GO TU 103 

82 CONTINUE 

85 IFINP.EO.O. AND. LOUT. EO.O) GO TO 86 
C 

359 CALL POCSTI 
C 

1FIGUESS.LT..0011 GO TO 109 
!F(Z(NX1.GT.19.0E30I GO TO 55 
IFIEXTRA.LT. 1.0) GO TO 86 
IF1NP0S.GE.91 GO TO 55 
GUESS 2 • 0*Z ( NX 1 

NPOS = 1 + NPOS 
00 319 1 = 1,NH 
319 MIN0PT1 I, NPOS) = MINI 1 1 
GO TO 55 

86 NADD = NAOD + 1 


G LEVEL 1, MOO 9 CHOOZS DATE = 71085 , 14/55/29 PAGE. 00 

N8DD = NADD 

NPOS . “ MAXO(NBDO,NPOS) 

DMIN = Z1NX1 - W ( NX 1 

WR!T£(6,201) NAOD, NX ,W (NX) , DMIN, Z(NX) 

C 

CALL OUT PT I 
C 

ETC ( NAOD) = ZINX) 

IFIKSTAT.GT.01 CALL COMPAR 
IFUFLAG. EO.O. AND.LCK.EO.il RETURN • 

IF(NADO.LT.NSOL) GO TO 101 
I F C NADO.EO. 1 ) RETURN 

109 DO 110 I = 1 , NM 

110 MINI] ) = MINOPTI 1,11 
RETURN 

C 

C STORE OPTIMAL VALUES 

101 DO 102 ) = 1 , NM 

102 MINOPTI 1 .NADOl = MINI II 

103 ZINX} = 1.0E30 
NX = 1 

. GO TO 55 

201 FORMAT UH1 , 131 1H*1 ,32H SOLUTION NUMBER ,I2,12(1H*1 

1 /1H ,.I3,29X,3(F9.2,5X)I 

202 FORMAT! 19H1GUESS TOO LOW] 

203 FORMAT I 19H1EXCEEDED 500 NODES) 

209 FORMAT (23H0THE ASSIGNMENT AT NODE, 19, 3X, 16HWITH LOWER 80UND,F10.2 
1, 3X,35H1S THE SAHE AS SOLUTION/POSSIBILITY, 19) 

205 FORMAT [1H1,5SH8 RANCH AND BOUND NODE 'VALU 
1 E S/58HONODE BRANCHED COST YEARS RECURRING NON-RECURRING 
2,5X,5HT0TAL/13H NO. FR0M,5X , 12HND. SUSTAIN,5X,3I 5HB0UND.9X >/ 1 

206 FORMAT 1 28H0NEXT SOLUTION HAS VALUE GT-.F10.2) 

207 FORMAT (23H0THE ASSIGNMENT AT NODE, 19, 3X, I6HWITH LOWER BOUND, FIO.Z 
1, 3X, 32HIS THE SAME AS PREVIOUS SOLUTION! . 

END 
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TOTAL MEMORY REQUIREMENTS 0020F6 BYTES 


F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 


IEWOOOO 
ILW0461 
I EH 0461 
1EW0461 
1EW0461 
IEW0461 
IEW0461 
IEW0461 
I EW 0461 


VARIABLE OPTIONS USED - SIZE=t 126976,24576) 
NAME HOX02CHIR) 

PACK 

iecoH= 

UNPACK 

PDCST1 

UUTPTI 

LBONDI 

CDMPAR 

MAXO 


DEFAULT OPTIONIS) USED 


MODULE MAP 


CONTROL SECTION 


NAME 

ORIGIN 

length 

CHOOZS 

00 

20F6 

SAV3 

20F8 

9B0 

SAVALL 

2A78 

3A1C 

VARNCE 

6498 

ADC 

TEMP 

6F78 

4110 

SCRACH 

. B088 

6A60 


ENTRY 

NAME LOCATION NAME 


LOCATION NAME LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH 11AE8 

**»*M0X02CH NOW REPLACEO IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


NAME 
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OS/360 FORTRAN H 


OATE 71. 084/15. 23. 51 


COMPILER OPTIONS - NAME= MA IN. 0PT=02, L INECNT=44,SOURCE,8CO,NOL1 ST, NOOECK , LOAD .NOMAP .NOEDIT . IO.NO 

' SUBROUTINE COMPAR 

C STATISTICALLY COMPARE ASSIGNMENTS FOUND 

i ** INTfcGER*2NU«NBY,N0B» MODE, FIN ISH.NSTG.LABF, LABS.LAB I ,NFHL »NFHU» 

1 KUDS.MASt LTR.MAF.MAI C.NPAD.NPFAM. NPI NTL »NP INTO. NF5 .NPSTG.MAPS. 

2 MAPF.MAPI ,NYO, MAT, LYD, IS, LYR, LETT, MIN. VEH.NONREC.NMULT .ROUT, 

3 NINTYR,NTGYTR,MINOPT,MORb,NADD,NX 

. COMMON/SAVSAR/ POJ(3),SRJ(3,3>,NUI40),NBY(401,NOB(40),RINT(40), 

1 • PLCINTI40) ,XLT( AO), PLCT ( 40 1 ,UPPt 40 1 ,T ATI 40 t , T AMT I 50) ,SR I AO, 3 » , 

2 MI)0F(40,3),PLC(40,3) 

; COMMON/ SAVE 1/ F [NISH, NSTG.NCI.ILY.LABF 130) ,L ABSI 40) , LAB! ( 40 ) , 

L NFMLI40) ,NFHIII40I , RODS I 40) ,STSI41) ,STGt 40) ,VLR! SO) , HPRI SO) , 

2 RPLH( SO) ,MAS(40,3) . RX0<12,50) 

b COMMIIN/SAV3/GR0, GUESS, LP.NSOL ,MSUL,NP.HOS,NMI S ,NSPB ,NPERPD < 30) » 

1 PAD(30),LTRI5QI,PLR<50>,R01STI56,4>,ALPI(4»60) 

7 f(IMM(IN/SAV4/ MAF(30,3), MAIC(40,3), 

* NPAOt 2, 60 ) ,NPF AH( 30 , 5 ) ,NP I NTL 130,51 ,NP INTU! 30,5 ) , 

1 NFS(40,4),NPSTG(30, 10) ,MAPS [ 30, 10) , MAPFt 30, 10 ) ,MAPI( 30,10 ) , 

2 PFAM0(30,5,2),PFAHS( 30,5,2) , PINTS! 30, 5, 2 ) , PSTGDI 30, 10,2 ) , 

□ COMMON/SAVALL/LCK, SLO.NM.NEXD, NV, NUMO, MYRS.LZOPTI 8) ,NYD(46> »HAT (46 

9 1 ) » SUST ( 46) »DS (46 ) • LYD ! 46) , Y0( 46 ) , I S! 102 ) ,LYR(252) .LETT 1 250 ) , 

2 MINI250) ,YRLM( 250) ,VEHI4,60) .NONRECI 120,20) 
g COMHON/VARNCE/KSTAT.VARI (40),VARF(50),VARMI56) ,FMVAR(2,30), 

1 F I VAR (3 ,40) , PLVAR( 3, 56) *5VAR ( 5,40) 

0 COHMON/TEHP/VNHl 2,250) , I FLAG, KI .NEXT, LOUT ,SAVS|40) ,K0UT(40), 

1 NINTYRI40,20) jNTGYTR ( 40,20,2 ) ,RECUR( 60,20,2) 

1 COMM ON/ SCR ACH / EXT R A, N ADD, NX, MORE (50 ) ,LZ(46) •“* ! . 

1 TDS( 500) ,WR(499) , 21 500) , COST! 2,250) ,HlNOPT( 246,9 ) ,NODE( 5,500 ) , 

2 NP0S,SIGS0(9),ETC(9), 

3 TSTG ( 40, 2 ) ,DUM( 30 ) 

2 DIMENSION TRINT(40) 

C 

3 DO 50 1 = l.NSTG 

4 TSTGI 1,1) = 0.0 

5 50 TSTGU.2) = 0.0 

6 IF(NCI.EO.O) GO TO 70 

8 00 60 I = l.NCI 

.9 60 TRINTI I) = 0.0 

C CALCULATE NUMBER OF TIMES EACH RECURRING COST IS USED 
■0 70 DO 100 J = 1,NH 


ISN 0021 
\ ISN 0023 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 
ISN 0031 
ISN 0032 
ISN 0034 
ISN 0036 
I SN 0033 
ISN 0039 
ISN 0040 
ISN 0041 
ISN 0043 
ISN 0044 
ISN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0050 
ISN 0051 
ISN 0052 
ISN 0053 
ISN 0054 


ISN 0055 
ISN 0056 
ISN 0057 
ISN 0058 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0069 


IFIYRLMl J1.LT.. 001) GO TO 100 
I = HIN(J) 

JX = LETT ( J ) 

ITR = LTR(JX) 

X * NMULTI I,JX) 

DO 99 MS = 1,4 
L = VEH(MS.l) 

IF(L.EO.O) GO TO 100 

TSTG(L.ITR) = TSTGI L.ITRl £ YRLM(J)*X 
IFINCI.EO.O) GO TO 99 
1FIMS.E0.4) GO TO 100 
IF(VEH(MS£1,I) .EO.O) GO TO 100 
LI = VEHIMS61.I) 

DO 98 MI = l.NCI 
DO 96 KY = 1,4 

IFINFMLIHI ).NE.NFS(L,KY>> GO TO 96 
DO 95 KZ = 1,4 

!F(NFMU(HI J.EQ.NFSILl.KZ) ) GO TO 97 

95 CONTINUE 

96 CONTINUE 
GO TO 98 

97 TRINT(MI) = TRINT(MI) C YRLM(J)*X 

98 CONTINUE 

99 CONTINUE 
100 CONTINUE 

TOT =0.0 
VTC = 0.0 
C 

C CALCULATE VARIANCE DUE TO RECURRING COSTS 
00 200 L = l.NSTG 

TSR = SR(L,1)*ITSTG(L,I)GTSTGU,2)> 

TOT = TOT E TSR 

IF(TSR.LT..001.0R.SVAR(1,L).LT..001) GO TO 110 
TTSR = T5R*TSR* ( EXP( SVARI 1 , L ) ) - 1.0) 

VTC = VTC t TTSR 

110 TSR » SR(L,2)*TSTG(L.l) 

TOT = TOT 6 TSR 

I F( TSR. LT. .00 l.OR.SVAR ( 2,L) .LT ..001) GO TO 111 
TTSR = TSR*TSR*IEXP(SVAR(Z,L) ) - 1.0) 

VTC = VTC G TTSR 

111 TSR = SR(L,3)*TSTGIL,2> 

TOT = TOT 6 TSR 


*r\ ic 



ISN 

0070 


IFITSR.LT..001.0R.SVARI 3,L> .LT..001) GO TO 200 

I SN 

0072 


TTSR » TSR * TSR*IEXPISVARI3,U ) - 1.0) 

ISN 

0073 


VTC = VTC £ TTSR 

ISN 

007** 

200 

CONTINUE 

ISN 

00 75 


IFINCt.EQ.Ol GO TO 900 

ISN 

0077 


DO 300 I = l.NCI 

ISN 

00 78 


TSR = RINTI I)*TRINT( I) 

ISN 

0079 


TOT = TOT £ TSR 

ISN 

0080 


IF(TSR.LT..001.0R.FIVAR(ltI).LT..001) GO TO 300 

ISN 

0082 


TTSR = TSR*TSR*(EXP(FIVARIl,m - 1.0) 

ISN 

0083 


VTC = VTC £ TTSR 

ISN 

0089 

300 CONTINUE 
C 

C CALCULATE VARIANCE OUE TO DEV. AND SUST COSTS 

ISN 

0085 

900 

00 500 I « l.NUMD 

ISN 

0086 


IFI LZ( I ) .EO.O) GO TO 500 

ISN 

0088 


IF(NAOO.GT.l) LZII) = LZU)*Kt 

ISN 

0090 


XX = LZI I) - NVOI I) £ 1 

ISN 

0091 


SU = SUSTI I > 

ISN 

0092 


IFIKOUT(I) .EO.O) GO TO 902 

ISN 

0099 


LT = KfltJT ( I ) 

ISN 

0095 


SU = SAVStLT) 

ISN 

0096 

902 

TOT = TOT £ OSII) £ XX*SU 

ISN 

0097 


J = MAT( I ) 

ISN 

0098 


IF(J.GT.IOOO) J * J - 2000 

ISN 

0100 


IFI J.LT.-200) GO TO 500 

ISN 

0102 


IFI J.LT.-100) GO TO 990 

ISN 

0109 


IFI J .LT • 0) GO TO 970 

ISN 

0106 


IFIHASIJ.D.NE.Il GO TO 500 

ISN 

0108 


DTM = 0.0 

ISN 

0109 


IFILABSI Jl.EO.O) GO TO 910 

ISN 

0111 


L = LARSIJI 

ISN 

0112 


00 905 K = 1,12 

ISN 

0113 

905 

DTM - OTM £ RXO(K,L) 

ISN 

0119 


IFI VARFIL) .LT..001) GO TO 910 

I SN 

0116 


TTSR = DTM*DTH*(EXP(VARF(D) - 1.01 

ISN 

0117 


VTC = VTC £ TTSR 

ISN 

0118 

910 

OTM = OSII) - DTM 

ISN 

0119 


IF1NUI Jl.EO.O) GO TO 920 

ISN 

0121 


X = NUI J ) 9NU I J ) 

ISN 

0122 


IFIVARJ I J ) . LT .. 001 ) GO TO 911 

ISN 

0129 


TTSR = X*UPPI J)*UPPI J)*(EXP(VARI(J)) - 1.0) 

ISN 

0125 


VTC = VTC £ TTSR 

ISN 

01’26 

911 

X = SORT 1 X ) 

ISN 

0127 


OTM = DTM - X*UPPIJ) 

ISN 

0128 

920 

IFISVARI9, J).LT..001) GO TO 921 

I SN' 

0130 


TTSR « DTM*DTM*IEXPISVAR(9, J) 1 - 1.0) 

ISN 

0131 


VTC = VTC £ TTSR 

ISN 

0132 

921 

1F(SVARI5,J>.LT.. 001. OR.SU .LT..0D1) GO TO 500 

ISN 

0139 


TTSR » XX*XX*SU *SU *( EXP 1 SVAR 1 5, J ) ) - 1.0) 

ISN 

0135 


VTC = VTC £ TTSR 

ISN 

0136 


GO TO 500 

I.SN 

0137 

990 

JX = -J -100 

ISN 

0138 


IFIMAIC(JX,1).NE.I) GO TO 500 

I SN 

0190 


DTM = 0.0 

ISN 

0191 


IFILABU JXKEQ.O) GO TO 950 

I SN 

019 3 


L = LAB1IJX) 

ISN 

0199 


DO 995 K - 1,12 

ISN 

0195 

995 

DTM = DTM £ RXDIK.L) 

ISN 

0196 


IFIVARFtD.LT. .001) GO TO 950 

ISN 

0198 


TTSR « OTM«DTM*(EXPtVARFf L) ) - 1.0) 

ISN 

0199 


VTC = VTC £ TTSR 

ISN 

0150 

950 

OTM = OSII) - OTM 

ISN 

0151 . 


IFIFIVAR{2,JX).LT..001) GO TO 951 

ISN 

0153 


TTSR » DTM*DTM*(EXPIFIVARI2,JX)) - 1.0) 

ISN 

0159 


VTC = VTC £ TTSR 

ISN 

0155 

951 

IFISU .LT..001.0R.FIVARI3,JX).LT..001) GO TO 500 

ISN 

0157 


TTSR = SU *SU *XX*XX*IEXPIFIVAR(3,JXI) - 1.0) 

ISN 

0158 


VTC = VTC £ TTSR 

ISN 

0159 


GO TO 500 

ISN 

0160 

970 

JX = -J 

ISN 

0161 


IFIMAFI JX.D.NE.I) GO TO 500 

ISN 

0163 


OTM = 0.0 

ISN 

0169 


IFILABFI JXI.EQ.O) GO TO 980 

ISN 

0166 


L = LABFIJX) 

ISN 

0167 


DO 975 K = 1,12 

ISN 

0168 

975 

DTH = DTM £ RXDIK.L) 

ISN 

0169 


IFtVARFID.LT. .001) GO TO 980 

ISN 

0171 


TTSR = OTM*OTF‘*(EXPIVARFID) - 1.0) 

ISN 

0172 


VTC = VTC £ TTSR 

ISN 

0173 

980 

DTM = DS(l) - OTM 

ISN 

0179 


IFIFMVARI 1,JX).LT..001I GO TO 981 

ISN 

0176 


TTSR = DTM*DTM#IEXP(FHVARI l,JX)> -1.0) 

ISN 

0177 


VTC = VTC £ TTSR 



ISN 0178 
ISN 0180 
ISN 0181 
ISN 0182 
ISN 0183 

ISN 0184 
ISN 0185 
ISN 0186 
ISN 0187 
ISN 0186 
ISN 0189 
ISN 0190 
ISN 0191 
ISN 0192 
ISN 0193 


ISN 0194 
ISN 0195 


ISN 0196 
ISN 0197 
ISN 0198 
ISN 0199 
ISN 0200 
ISN 0201 


ISN 0202 
ISN 0203 
ISN 0204 
ISN 0205 
ISN 0206 
ISN 0207 
ISN 0208 
ISN 0209 
ISN 0211 
ISN 0212 
ISN 0213 
ISN 0214 
ISN 0215 


481 IFISU .LT..001.0R.FMVARI2, JX) .LT..001I GO TO 500 

TTSR = SU *SU *XX*XX*(ExPIFHVAR(2,JX)) - 1.01 

VTC = VTC £ TTSR 
500 CONTINUE 

SIGSO(NAUD) = ALOGIETC(NAOOI*ETC(NAOD> C VTC I - alogietcinaodi* 

* FTCINAOOIl 

XMOOE * fcTC!NADD)*(EXP(-l.5*SIGS0tNADD>l! 

TP = SORT l SIGSO(NAOD) ) 

XMU = ALUGI ETC (NADD) I - .5*SIGS0I NADDI 
VTC = SORT! VTC) 

XKO = (ALOGI XMOOE) - XMU) /TP 
CALL NDTRIXMD,P2,D) 

XDUM = <ETC1NA00)/TP)*( 1.00/2.5066) 

C = (XDUM/XM0DE)*EXP(-.5*XH0**2) 

WRITE ( 6,900) NADD, ETCI NADD) , TOT, XMOOE, VTC, XMU, SIGSQI NADD) 

900 FORMAT t ' 1 SOLUT ION ' , 1 3, « HAS EXPECTED L V COST' , F10.2.* ('♦ 

* F 10. 2, 1 ) ', 3X,'H00E = ’ , FIO .2.3X, • STO. OEV. =',F10.2// 

* ' PARAMETERS HU AND SIGMASO = • .F10.2, 3X, • AND' .F10.2) 

WRITEI6.910) XM0DE,P2,C,D 

910 FORMAT ( 1H0, ' PROB (COST LE*, F10.0,* ) *', F4.2, 3X. • BENS IT Y »•» 

* F10.4,3X,'( ',F4.2,' )') 

P2 * P2 6 .5 

CALL NDTRHP2,Y2,C,IE) 

22 = EXP ITP*Y2 E XMU) 

C = ( X0UM/Z2)*£XP!-.5*Y2**2> 

WRI TEI 6.905) Z2.P2, XMOOE, 22, C 
905 FORMAT! 'OPROB (COST LE 1 , F10.0,' I »',F4.2,3X, 

*• 50 PERCENT UNCERTAINTY INTERVAL « » .F10.0.2X, 'TO* , F10.0.3X, 

* 'DENSITY =' , FIO. 21 
P * .1 

00 520 1*1,5 
CALL NOTRI (P,Y,C»IE) 

X5 = EXP ( TP*Y £ XMU) 

0 = (XDUK/X5)*EXP(-.5*Y**2) 

WRI TE (6,910) X5,P,0,C 
520 P = P E .2 

IF(NAOO.LE.l) GO TO 700 
NT = NADD - 1 
DO 600 I = I, NT 
RHO = -.3 

TP1 = SORT! SIGSQt 1 1 ) 

XMU1 * ALOGt ETC 1 1 ) ) - .5*SIGS0(I) 


ISN 0216 DO 590 J = 1.4 

ISN 0217 RHO = RHO E .3 

ISN 0218 Y * I XMU - XMU1) /f SORT I SIGSQ! I ) £ SIGSO(NADO) - 2.0*RH0*TP*TP1 1) 

ISN 0219 CALL NDTRI Y,P,D) 

ISN 0220 WRITEI6.901) NADD, I ,P ,RHO 

ISN 0221 901 FORMAT! '0 PROS ( ASS! GNMENT', 13, • COST GE ASSIGNMENT' , 1 3, • COST) 

*=*, F4.2, ' IF CORRELATION =', F3.1//) 

ISN 0222 590 CONTINUE 

ISN 0223 600 CONTINUE 

ISN 0224 \700 WRITEI6,906) 

ISN 0225 906 FORMAT ! 1H1 ) 

ISN 0226 RETURN 

ISN 0227 END. 

****** END OF COMPILATION ****** 
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F 88— LEVEL LINKAGE EO I TOR OPTIONS SPECIFIEO LI ST.XREF, HAP, NCAl 

VARIABLE OPTIONS USED - S I ZE* t 126976. 245761 DEFAULT OPTION(S) USED 

ItWOOOO NAME M0XO2CMIRI 

IEW0461 NDTR 
I EW0461 NDTR I 
IEW0461 ALOG 
I EW0461 SORT 
IEW0461 EXP 
I EW0461 I BCQM- 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 







NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

COMPAtt 

00 

160C 








5AVSAR 

16 IG 

A58 








SAVEl 

206ft 

'FC4 








SAV3 

3030 

980 








SAV4 

3900 

3186 








SAVALL 

6B3e 

3A1C 








VARNCE 

A558 

AOC ' 








TEMP 

8038 

41 10 








SCRACH 

F 146 

6A60 









LUCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

488 

SAVSAR 

SAVSAR 

4BC 

SAVE l 

SAVE1 

490 

SAV3 

SAV3 

494 

SAV4 

SAV4 

498 

SAV4 

SAV4 

49C 

SAV4 

SAV4 

4AQ 

SAVALL 

SAVALL 

4A4 

SAVALL 

SAVALL 

4A8 

VARNCE 

VARNCE 

4AC 

TEMP 

TEMP 

480 

SCRACH 

SCRACH 

4B4 

SCRACH 

SCRACH 

4B8 

SCRACH 

SCRACH 

4BC 

SCRACH 

SCRACH 

4C0 

SCRACH 

SCRACH 

4C4 

NDTR 

SUNRESOLVED 

4C8 

NDTR I 

JUNRESOLVED 

4CC 

ALOG 

SUNRESOLVEC 

4D0 

SORT 

SUNRESOLVEC 

4D4 

EXP 

SUNRESOLVEC 

408 

I BCOM- 

SUNRESOLVEC 



ENTRY ADDRESS 

00 





TOTAL LENGTH 

15BA8 






*»**M0X02CM NOW REPLACED IN DATA SET 

DIAGNOSTIC MESSAGE DIRECTORY 

IEW0A61 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIEO. 
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1 17) 


as/360 FORTRAN H 


DATE 71.084/15.24.29 


OPTIONS - NAME- MAIN, 0PT=02, LINSCNT=44, SOURCE, BCD.NOL IST.NOOECK, LOAD. NOMAP, NOEOIT.ID.NO 
SUBROUTINE CONSTR 

DETERMINE IF ANY PROGRAM CONSTRAINTS HAVE BEEN VIOLATED 
DOUBLE PRECISION NAME 
INTEGER PROG 
LOGICAL SKIP, EXT, ACCL 

INTEGERS NSYR,NSFX,NRFX,NYRSST,NSTRFX,NPROG,KPROG,KOOE,NYRSFX, 

1 YOPL.KOOEM.KOOESP 

C0MM0N/SAV2/EXT»ACCL.KNSTG,KNFAH,KNCI ,knp,knhis,jflag»tref,ncstr, 

1 PM AX , PM IN, ISTRT,IFIN,MAXITR,HITR,K0DESP(6),TITLE( 10) ,LEVEH20) , 

2 CNTPVLI20) .FIXED! 20) , KODEMI 50 ) ,NSYR ( 50 ) ,NSFX( 50) .NAME! 56) , 

3 YOPL ! 56 ) ,NRFX ( 50 ) , NYRSST 184) .NSTRFX! 84) , NYRSFX ( B4 > ,SUS ( 84 ) ,C ! 84 ) 

4, R(B4t, S(84),CSI90),NPR0GI90),KPROGI90), K0DE(90) 

COMMON/SCRACH/M.N.NCS, PROG, 1000,1 ERR, SKIP, MYFLAG, JS.NSCALE 15), 

1 NSLI10) .TOTAL (20) ,W (20) ,0(20) ,X0UT(20) ,VOUT( 20) ,RRR( 20) .YEAR (20) 

2, Y ( 20 1 , KVEH 1(50), LABEL ( 50 ) ,LVAR Yf 70) ,LVO( 70) , I VEHC 70 ) ,LV$ ( 70 ( , 

3 LVSF (801 ,VNAH( 801 ,NOP( 86) ,RF( 86 ) ,CF ( 86 ) , SF( 86) , FLAGR ( 86) , 

4 FLAGS! 86 ) ,NSSF( 86) ,NSRF ( 861 , NSXFI 86) ,NDSF( 86) , SUSTFI 86) ,NLVP(86) 

5, NSTRRC ( 86 ) ,NYRSRC( 86 ) ,LNDF ( B6) ,NSTRST ( 86) ,LNDATEt 86 ) ,NPR0(9O ) , 

6 KPROI 90),CSX(90),LZI46) ,RCOST ( 60), KVEH( 60) ,IHAGE(830) , 

7 XSCHI (0,70) ,XLVSUM( 20,50) .RECUR [ 20, 501 ,0UH(656) 


IERR — 0 

IF ( NCSTR.EO. 0) RETURN 
NR = PROG 
DO 100 1= l ,NC5TR 
J = NPROGI I ) 

K = KPROG(I) 

IF I J.NF.NR.ANO.K.NE.NR) GO TO 100 
MP= KODEI I) 

IF IMP.LT.l.OR.MP.GT. 11) GO TO 100 
GO TO (10,20,30,40,50,60.70,110,90,91,92), HP 
10 OT » CS( I) 

IF (S(J).LT. ( S(K)CR(K) C DT)> GO TO 110 
GO TO 100 
20 DT = CStI) 

IF US(J)ER(J)EOT).GT,S(K)) GO TO 110 
GO TO 100 

30 IF(S( J) .NE.CS( 1 )> GO TO 110 

GO TO 100 

40 IF(ISIJ) 6 R(J) - l.O).NE.CS(I)) GO TO 110 
GO TD 100 


ISN 0036 50 IF (R(J).NE.CSt I)) GO TD 110 

ISN 0038 GO TO 100 

ISN 0039 60 OT = LNDATE(J) 

ISN 0040 ET = LNDATEI K) 

ISN 0041 IFI(S(J)EDT£CS(I)).GT.(S(K)CET).AND.(S(J) E DT E CS( 1 ) ) .LT. ITREF E 

1 20 .)) 

1 GO TO 110 

ISN 0043 GO TO 100 

ISN 0044 70 DT = LNDATEIJ) - 1 

ISN 0045 IF (IS(J) E OT) .GT.CSI I ) ) GO TO 110 

ISN 0047 GO TO 100 

ISN 0048 90 IF ( S< J).LT.CS( I)) GO TO 110 

ISN 0050 GO TO 100 

ISN 0051 91 OT = LNDATEIJ) - 1 

ISN 0052 IF l(S(J) E DT I . LT.CSI I ) ) GO TO 110 

ISN 0054 GO TO 100 

ISN 0055 92 DT » LNOATE(K) -1 

ISN 0056 IF ((S(J)£R(J)£CS(I)I.GT.(S(K)£0T)> GO TO 110 

ISN 0058 100 CONTINUE 

ISN 0059 RETURN 

ISN 0060 110 ! ERR = 1 

ISN 0061 120 RETURN 

ISN 0062 END 


****** £NU OF COMPILATION ****** 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST.XREP.HAP.NCAL 

VARIABLE OPTIONS USED - S1ZE=( 128976,245761 DEFAULT OPTIONIS) USED 

IEWOOOO NAHE M0X02CR1R) 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


•ENTRY 







NAME 

ORIGIN 

LENGTH 

NAHE 

LOCATION 

NAHE 

LOCATION 

NAME 

LOCATION 

NAHE 

CUNSTR 

oo‘ 

AF2 








SAV2 

4F8 

FEO 








SCRACH 

1408 

. 6A60 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

100 

SAV2 

SAV2 

10A 

SCRACH 

SCRACH 

108 

SCRACH 

SCRACH 

IOC 

SCRACH 

SCRACH 

no 

SCRACH 

SCRACH 

1 1 A 

SCRACH 

SCRACH 

ENTRY ADDRESS 

00 





TOTAL LENGTH 

7F3B 






***»H0X02CR NOW REPLACED IN OATA SET 


I 


FORTRAN IV G LEVEL 1, HOD A 


OAT INS 


DATE = 7108A 15/2A/56 


0001 

0002 
0003 
OOOA 
0005 


0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 
00 1A 
0015 


SUBROUTINE OATINS 

C ALL COST OATA ASSOC I ATED W ITH VEHICLES IS INPUT - ALSO'MISSION DATA 
DOUBLE PRECISION NAHE 
REAL NPERPO, LEVEL 
LOGICAL EXT.ACCL 

INTEGERS YDPL.NSYR.NSFX.NRFX.NYRSST.NSTRFX.NPROG.KPROG.KODE, 

1 NYRSFx tKODEH tKODESP tNUtNBY ,HODE » NOB *F INI SH, NSTG»NFHL ,NFMU»KODS , 

2 HAS, LABS. L ABF, LABI , LS A , NYS t KODEF , LST, MST, 1ST, JST,KST,VEH,NYD, 

3 NMULT .NONREC, IS, MAT, LYR , L ETT ,L YD, Ml N.NVS ,HRV,NRP ,NYP, KODEP , 

A IVEHA,NTRIP,NPLS,NRR,MR,NPSTG,NPAO,NPFAH,NFS,NPINTL,NPINTU,MAPS, 
5 HAPF ,HAPI ,KOUT,LTR,KODEV,NINTYR,NTGYTR,HAF,HAIC 

c 

COMMON/ SAVER/ RFI X0( 1 2 ,8A 1 

COMHUN/SAVDHP/ NFAH ,KFLAG, FAHt 30) ,KODEF( 30) ,FHNR( 30) , FHSUS 130 ) , 

1J ST I 301 , YDF 130) ,LSA ( AO ) , SNR ( AO) ,NYS( AO) .DINT I AO I ,SINT( AO) .KSTtAO) , 

2 YOU AO) .YDS I AO) ,IST(A0),FHSLS(30,2),SUSLS(A0,2),SINTLS(A0,2), 

3 LST I 30,5 ) , YDPF (30,5) ,MST130,10) ,YDPSI30,10) 

COMMON/SAVSAR/ PDJ( 3) ,SRJ(3,3),NU( AO).NBY(AO) .NOBIAO) , RINT [AO ) , 

1 PLCINTIAO),XLT(AO), PLCT1 AO) ,UPP1 AO) , TAT I AO) .TAHTI50) ,SR[A0,3), 

2 MODE (A0,3),PLCIA0,3) 

COMMON/SAVEl/ FINISH.NSTG.NCI, ILY.LABFI 30) .LABS (AO) ,LABI I AO! , 

1 NFMLIAO) .NFMUIAO) ,KODS I AO) ,STS( A1 ) .STGIAO) .VLRI50) ,HPR(50), 

2 RPLM|50),HAS(A0,3) , RXDI12.50) 

C0HM0N/SAV2/EXT, ACCL,KNSTG,KNFAH,KNCI,KNP,KNMIS, JFLAG.TREF.NCSTR, 

1 PMAX ,PM IN, I STRT , I F I NiHAXI TR.HITR ,KODESP( 6) .TITLE! 10) .LEVEL 120), 

2 CNTRVL! 20) .FIXED! 20) , KOOEHi 50) .NSYRI50) ,NSFX( 50 ) .NAME ( 56 ) , 

3 Y0PLI56)»NRFX!50),NYRSST(8A) .NSTRFX I 8A I .NYRSFX ( 8A ) ,SUS t 8A) ,C ! 8A I 
A, R(8A), 5! 8A) ,CS!90), NPROG! 90) , KPRCG! 90) , K00EI90) 

C0MMUN/SAV3/GR0, GUESS, LP,NS0L,HS0L,NF,H0S,NM IS, NSPR, NPERPO! 30), 

1 PA0I30) .LTRI50) ,PLR!50),RUIST(56,A),ALPI I A, 60) 

COHMON/SAVA/ HAF(30,3), MA1CIA0.3), 

♦ NPADI2.60) ,NPFAM! 30,5 ) ,NP1NTL( 30,5) .NPINTU! 30,5), 

1 NFS! AO, A) ,NPSTG(30,10),MAPS( 30,10) ,MAPF ( 30 , 10 ) ,HAPI ( 30 , 10) , 

2 PFAMD(30,5,2), PFAMS I 30, 5, 2), PINTS! 30, 5, 2) ,PSTGD(30, 10,21 , 

3 PSTGSI30, 10,2) 

COMMON/ 5VAC A V/ KNV.NOPT, KODEP! 30) ,RPL0< AO) , t VEHA! 50) ,NTRIP(50), 

1 NPLSI50) ,NRR( 50) ,MR) 50) , NVSI 60 1 ,HRV( 60) ,NRP( 60) ,81(60) ,82160) , 

2 83(60) , BA! 60) .K0DEVI60) ,NYP(2,60) ,VM!2,60) 
COHMON/SAVALL/LCK,SLO,NM,NEXD,NV,NUMD,MYRS»LZOPT (8) ,NYD( A6) ,HAT!A6 

l ), SUST 1 A6) .DS1A6) ,LYD!A6) , YD! A6) , IS ! 102 ) , LYR! 252) , LETT! 250 ) , 

2 MIN (250) ,YRLM(250),VEH! A, 60) .NONREC ( 120,20 1 , NMULT (60, 50) 
COMMDN/VARNCE/KSTAT.VARIIAO) , VARF! 50 J , VARM! 56 ) , FMVAR! 2,30 ) , 

1 FIVAR(3,A0),PLVAR(3,56),5VAR!5,A0) 


PAGE 00 
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FORTRAN IV G LEVEL 1, MOD 4 


OAT INS 


DATE = 710S4 


15/24/56 


PAGE 00 


0016 


0017 


0018 


00 19 
0020 
0021 
0022 

0023 

0024 


0025 

0026 

0027 

0028 

0029 

0030 

0031 
00 32 
0033 
00 34 

0035 

0036 


0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 


FORTRAN 


0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 


0054 

0055 

0056 

0057 
00 58 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
0078' 

0079 

0080 
0081 
0082 


COHMON/TEMP/VNMI 2,250) , I FLAG, KI .NEXT, LOUT, SAVS140) ,KOUT (40), 

.1 NINTYR(40,20) ,NTGYTR(40,20,2I .RECUR I 60,20,2 ) 

COHMUN/SCRACH/ IP, IV, IG,M0DX(3),NFXI4),NPFAX(5),LSXI5) ,NPINXL(5I , 

1 NPINX1M5) ,NPSTX(.10> ,MSX(10),LZI20> ,PB(50) ,HISNI50,20> ,DUK(1382), 

2 RC0STI60) .RXMI50) ,11 ,KNSP,K.LCK, IM.DUMMI 3962 ) , SRXX I 3) , XX (3 ) , 

3 PXI561 ,CX(56) ,SX(561,TRXI 56) 
t 

REAUI5, 100) LP.NOPT,HOS,NSOL,HSOL, MITR, ILY.MYRS.TREF, GUESS, GRO, 

1 SUJ,!P,IG,IFM,II,IH,ISD,IV 

C *4* IG I FM 'II IM ISO AND IV ARE VARIABLES FOR BATCHING ONLY *** 

IF IMYRS.EO.O) GO TO 806 
WRITE (6,104) 

GRO * GRO/IOO.O 

IF( IG.LT.01 GO TO 12 

WRITE(6,213) 

LX * 0 

C NSOC •- NUMBER OF SPECIAL DEVELOPMENT COSTS 
C WARNING - DON'T USE NSOC WHILE BATCHING' 

NSOC * 0 
DO 8000 I * 1,40 

READ( 5, 101 ) KODX, STG(I) , ( SR ( I , J ) , J=1 , 3) , I PLCI I , J) , J* 1 ,3 ) , 

1 SNRII),STStI).LXX,NBX,(NFX(J)»J=l,4),(M0DXU>, J=l,3) 
lF(KODX.EO.O) GO TO 12 
RODS! I) = KODX 
LSA(I) = LXX 
NBYI I ) = NBX 
DO 8010 J = 1,3 
NFS) I, J) = NFXI J) 

8010 HODEC I, J) * MODXI J) 

NFSf I ,4) = NFXI4) 

IFILCK.NE.l.AND.IPLCt ! , 1 ) .GT. , 001.0R.PLC ( I ,2 ) .GT..001.0R.PLCU ,3> . 
1GT..001) 1 LCK = 1 

C INPUT -NU(I) L£ -2 IF WANT PROGRAM TO CALCULATE ESTIMATE FOR NU 

READ (5,111) (SUSLSI I, J),J=1,2) ,NUX,UPPI I) ,UPPXX, PXX.RPLOU ) , 

1 YDS( 1 ) ,ISX,NSXF,($RXX( J) ,J=1,3) ,XXl 1 l,SNRXX,XXI 2) ,STSXX,XX (3) 

NU ( I ) = NUX 
I ST ( I ) = ISX 
NSTG = NSTG + 1 
LABS! I) * o 
NDS = YDS! I ) 

NYS(I) * HAXO(ISTd) - ILY + NDS, II 
WRITE! 6,112) 

WRITE (6,8001) STGI I),(SR(I,J) , PLCI I , J I ,0=1,3) ,SNRI !),STS(I), 


IV G LEVEL 1, 'MOD 4 ' DAT I NS DATE = 71084 15/24/56 


1 NYS( I) ,LSA( D.INFSII , J),J = 1,4),NBYI I ) 

IF(XX< 1) « GT « « 000 1 ) CALL M£AN( XX 1 1 ) ,KSTAT, SVAR( 1 , I ) ,SRXX< 1 ) , 

1 SfUI.l)) 

IF (XXI 1 ). GT.. 0001. AND. SR (1,2 I. GT.. 0001 1 
1 CALL MEAN !XX( 1 l,KSTAT,SVARI2,I ) , SRXX’j 2) ,SR(I ,2) ) 

IF (XX I 1 I.GT.. 0001. AND. SRI I , 3) .GT. . 0001) 

1 CALL MEAN!XX(1I,KSTAT,5VAR(3,I),SRXX(3),SR(I,3)> 

IF I XXI 2) .GT..0001) CALL MEAN! XX ( 2 ) .KSTAT, SVAR(4, I ) , SNRXX ,SNR ( I ) ) 
IFIXXI3) .GT..0001) CALL MEAN! XX( 3 ) , KSTAT, SVARI 5, I ) ,STSXX,STS t I ) I 
UP = UPPi I ) 

IFI PXX. GT.. 0001) CALL MEAN I PXX, KSTAT , VAR I ( 1) ,UPPXX,UPPf I ) ) 

I F ( XX I 1 ) .GT..001.0R.XX(2).GT..001.0R.XX(3),GT..001) 

♦WRITE (6,8001) STGUl,ISR(I,J),PLCII,J),J=l,3),SNRin,STS(I>, 

1 NYS ( I 1 ,LSA( I), [NFS! I, J) ,J=1,4I,NBY( I) 

DO 8002 J = 1,3 
IF (MODE! I, J) .EQ.O) GO TO 8002 
- LX = LX + 1 

MODE! I, J) * LX . . - 

READIS, 80031 (SRJILX.K), K * 1,3), POJ ( LX ) ,SRJXX,PXX 
1FIPXX.GT..0001) CALL MEAN( PXX, KSTAT, SVARI J , I) ,SRJXX,SRJ I LX,1 J ) 
IFIPXX.GT. .00011 SRJ(LX,2> = SRJ ( LX,2)*EXP( 1.5*SVAR( J, I ) ) 

IF ( PXX ,GT. .0001 ) SRJ t LX, 3 I = SRJ( LX, 3) *EXP( 1 ,5*SVAR( J , I ) ) 

WRITE! 6,8004) J ,P0J I LX ) , SRJ ( LX, 1 ) ,POJC LX ) , I SRJ ( LX,K ) ,K-2,3)' 

8002 CONTINUE 

IF(NU(I I.NE.O) Wft I TEI 6, 8005 1 UPP(I) ,UP 
IF(NSXF.EO.O) GO TO 8000 
NSOC = NSDC + 1 

READ (5,110) NRXF, ( RXDI J.NSDC) , J « 1 , 1 21 ,RXDXX, PXX 
NRFXINSDC) = .NRXF 
NSFX(NSDC) = NSXF 


NX = NRFXINSDC) + NSFXINSDCI - ILY 
NOS = NYS(I) . ’• 

NYS ( I ) * MAXO ( NDS , NX ) 

LABSU 1 = NSOC ' . , 

WRITEI6.113) (RXDIJ.NSOC), J * 1,12) 
IFIPXX.LT. .0001) GO TO 8000 
RX = 0.0 
.DO 500 J = 1,12 

500 RX = RX + RXDU.NSDC) 

CALL MEAN I PXX, KSTAT, VARF( NSDC), RXDXX.R) 

DO 501 J = 1,12 

501 RXDIJ.NSOC) = RXDI J,NSOC)*EXPt 1.5*VARF( NSOC) ) 
WRITEI6,113) (RXDIJ.NSOC), J = 1,12) 


PAGE 00 
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FORTRAN 

0083 

0084 
0088 
0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
0096 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 


FORTRAN 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 


IV G LEVEL 1. MOO 4 OATlNS DATE ■ 71084 15/24/56 PAGE 00 

8000 CONTINUE ' . 

12 1FUFH.LT.0) GO TO 14 
DO 13 J * 1,30 

READ! 5, 102) I , FAH(I) , FHNR ( I) . FHSUS ( II,Y0F( I),JX,NSXF, 

I 1FMSLS1 1 ,KI ,K=1,2),FMNRXX,XX( 1) ,FHSSXX,XX( 21 
IF I I.EO.O) GO TO 14 
IFIJ.EO.il WRITE! 6 . 214) 

NFAM = NFAH + L 
JSTI I ) = JX 
LA8F1 I 1 = 0- 
KODEFIJ) = I 
WRITE(6,112) 

WR ITE I 6 i 2 141 1 KODEFIJ 1 . PAH| I ) , FHNRt I ),FHSUS( 1) 

IF! XX I 11* GT. *0001) CALL HEANI XXI 1 1 ,KSTAT, FHVARI 1 , I) ,FMNRXX, 

1 FMNR(Il) 

IFIXXI2I.GT..0001) CALL MEAN I XX ( 2 ) , KSTAT, FHVARI 2 « I 1 .FMSSXX, FHSUS I 1 ' 

111 

I FI XXI 1I.GT..001.0R.XXI21.GT..001) 

1WRITEI6,2141)K0DEF( J) , FAH| J I , FHNR 1 1 ) , FHSUS I 1 1 
1FIM5XF.E0.0) GO TO 13 
NSOC » NSDC + 1 

READI 5, 110) NRXF, (RxDI Jl , NSDC) , Jl=l , 12) ,RXDXX»PXX 

NSFX I NSDC) = NSXF 
NRFXINSDCI = NRXF 
LABFI II = NSOC 

•WRITE 16*113) I RXDI Jl* NSDC ) « J1 = 1*12) 

1FIPXX.LT. .0001) GO TO 13 
RX = 0.0 

DO 504 Jl = 1,12 

504 RX = RX + RXDI Jl, NSOC) 

CALL MEAN < PXX ,KSTAT , VARF ( NSDC ) ,RXOXX ,RX ) 

00 505 Jl * 1,12 

505 RXDI Jl, NSDC) = RXDI J 1 .NSDC ) *EXPI 1 .5*VARF( NSOC ) I 
WR 1 Tb I 6, 113) IRXDI Jl.NSDC), Jl =■ 1,12) 

13 CONTINUE 

14 1FI JI.IT.O) GO TO 1716 
DO 1715 1 = 1,40 

READ! 5, 103 ) J,K,R]NTM), PLCINT III, DINT 111, SI NT (I) »YD III) «KX,NSXF» 

1 ISINTLSU.L), L=l,2> 

1FIJ.E0.0) GO TO 1716 
IFlI.EO.t) WRITEI6.215) 

READ! 5, 108) R INTXX t XX 1 1 ) tOINTXX ,XX( 2 ) ,SINTXX, XXI 3) 

1FILCK.NE.1.AN0.PLC1NTU ) .GT..001) LCK - r 


IV G LEVEL 1, HOD 4 DATINS DATE = 71084 15/24/56 PAGE 00 

NCI = NCI- + 1 

LABI (I) = 0 

KSTII) = KX 
NFHLII) = J 
NFHUI I) = K 


WRITE! 6,112) 

WRITE I 6, 2 16) FAMt J) , FAHI K) , RINTI 1 1 , PLCINT 1 1 ) ,D1NTI ! ) ,SINT 1 1 ) 
IFIXXIll.GT.. 00011 CALL MEAN! XXI 1 ) ,KSTAT, F I VARI 1 , I ) .RINTXX, 

1 RINTI I )*) 

IFIXXI2 I.GT..0001) CALL MEAN! XXI 2 ) ,KSTAT, F 1 VARI 2, I) .OINTXX, 

1 DINTID) 

IF! XXI3) ,GT.. 00001) CALL HEANI XXI 3) ,KSTAT , FI VAR I 3 , t ) , SINT XX, 

1 S I NT 1 1 ) ) 

IFIXXI 1).GT. .00 1 .OR * XXI 2 ) .GT • . 001 .OR. XX ( 3) .GT . .001 ) 

1WRITEI6.216) FAHI J), FAHI K) , RINTI 1 ) , PLCINT (I) .DINTII ) ,S I NT U) 
IFINSXF.EQ.O) GO TO 1715 
NSOC = NSOC + l 

READ! 5, 110) NRXF, ( RXOt J, NSOC ) , J = 1 ,12) .RXDXX.PXX 

NRFXINSOC) = NRXF 
NSFX I NSOC ) = NSXF 
LABI I I ) ■= NSDC 

WRITE! 6, 113) IRXDI J, NSDC), J * 1,12) 

1FIPXX.LT. .0001) GO TO 1715 
RX = 0.0- 
DO 502 J = 1,12 

502 RX = RX + RXD(J.NSDC) 

CALL MEANIPXX.KSTAT.VARFtNSOC) ,RXDXX,RXI 
DU 503 J = 1,12 

503 RXOIJ.NSDC) = RXO I J ,NSOC ) *EXP I l.5*VARF (NSOC ) 1 
WRITEI6.113) IRXDI J, NSDC) , J * 1,12) 

1715 CONTINUE 

1716 IF (IP.LT.O) GO TO 9002 
DO 9004 I = 1,30 

READ! 5 ,9005 1 Jl, PAD (II .NPERPD 1 1 ) 

IFIJ1.EQ.0) GO TO 9002 
IFII.E0.1) WRITE (6,9003) 

KODEPI I ) = Jl 

WRITE (6,9006) KODEPI I) ,PAD( I ) ,NPERPD{ I ) 

NP = Ni> + 1 

READI 5,5000) (NPSTX ( J I ,PSTGD! 1 , J, 1 1 ,YDPS( I , J ) ,HSX I J) , PSTGS ( I , J t 1 ) 
1, PSTGDI'I , J, 2) ,P,STGS( T, J,'2) , J = l,10) 

00 700 J = 1,10 
HST ( I ,J) = HSX( J) 
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0159 
O J 60 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 
017B 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 


700 NPSTGCItJl = NPSTX(J) 

READ! 5,5000) INPFAX! J) , PFAHDCI , J, 1 ) , YOPFl I,J),LSXI Jl, PFAHSIltJ.ll 
It PFAHDI I , J t 2 ) tPFAMS ( I , J ,2 ) , J=l,5) 

RE ADI 5 ,5002) INPINXLI Jl .NPINXUI J ) , ( PINTS! I , J, K) ,K=1 ,2 ) ,J*1 ,5 ) 

00 701 J = 1,5 
LST! I, J) = LSXl J) 

NPFAH! I,J) = NPFAX ( J ) 

NPINTL! I,J) = NPINXL! J ) 

701 NPINTU! I, J) = NPINXUtJ) 

DO 9022 J = 1,10 

IF (NPSTGU.Jl.EO.O) GO TO 5009 
DO 9023 L * 1,NSTG 

IF 1NPSTG(I,J).NE.K0DE(U) GO TO 9023 
NPSTG! I ,J) = L 

WRITE! 6,5003) STGIL) , I PSTCD! I , J, K ) ,PSTGS( I , J ,K ) ,K*1 , 3) 

GO TO 9022 
9023 CONTINUE 
9022 CONTINUE 
5009 DO 5006 J = 1,5 

IF (NPFAH! I, J) .EO.O) GO TO 5007 
L = NPFAH! I,J) 

5006 WRITE! 6,5004) F AH! L ) , ( PFAHDI I , J ,K) .PFAHSI I , J ,K) ,K»1 ,3 1 

5007 DO 5008 J = 1,5 

IF (NPINTLII.Jl.EO.O) GO TO 9004 
L = NPINTL! I , J) 

LX = NPINTU! I, J) 

5008 WRITEI6, 50051 FAMI l ) , FAM( LX) , < PINTS! I , J ,K I ,K » 1,3) 

9004 CONTINUE 

9002 IFUM.LT.O) GO TO 19 
DO 1719 1=1, HYRS 
1719 L2 1 1 1 = ILY+I—1 

WRITE! 6,217) (LZ! I), 1*1, HYRS) 

1717 DO 1718 1=1,50 

READ! 5, 105) KH,NAHE( I) ,PB( 1 ) ,NSYX »NYRSXF, VLR 1 1 ) ,RPLH( I ) , TAHT 11), 

1 WPR! I),NTP,IHISN!I,J), J=1,MYRS) 

IF! KM. EO.O) GO TD 1720 
KODEM(I) = KM 
NSYR(I) = NSYX 
NYRSFX(I) = NYRSXF 
NTRIP! 1 1 = NTP 
NMIS = NMIS- + l 

RE AO! 5, 107) PLR(I)»SUS[I),CIT),NDPL,(RDIST( I,L),L*1 ,4),NPS,MRX, 
l LRX,NR,IIS,IVAX 
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0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207. 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 


0232 

0233 

0234 

0235 


YOPLt I! = NDPL 

NPLSI I ) \* NPS 

MRU ) = HRX 

LTR ! I ) = MAXOl LRX, l) 

NRRI I ) * NR • 

IS! I) = 1900 + IIS 
IVEHAIII = I VAX 

WR I TE 16,2 19 1 I.NAHEII), VLR ( 1 1 , WPRII) , PBl I ) , LTR ( I) , 
l !M1SN!I,J1,J=1, MYRS) 

PXI I) = PLR! I ) 

CXIII = Cll) 

SX!I) = SUS(I) 

READ I 5, 108 I PLRXX ,XX! 1),CXX,XX(2) ,SUSXX,XX(3) 

1FIXXI 1 1.GT..0001! CALL MEAN! XX( 1 ) .KSTAT, PL VAR! 1 ,1 ) , PLRXX, PLR! 1 1 1 
IFIXXI2I.GT..0001) CALL HE AN! XX! 2 ) , KSTAT, PLVAR ! 2 , I > ,CXX ,C ( I > > 

IF (XX! 3 1 .GT.. 0001) CALL HEANIXXI3I .KSTAT, PL VARI 3, I ) ,SUSXX,SUS ! 1 1 ) 
RXH! I ) = 0.0 

IF(NYRSFXU).EO.O) GO TO 1718 

REAO! 5, 110) NSTRXF, !RFIX0!J,I1, J» 1, 12) ,RXDXX,PXX 
NSTRFX I I ) = NSTRXF 
DO 520 J = 1, 12 

520 RXH ( 1 ) = RXH ! I ) + RFIXDIJ.I) 

TRX! I ) = RXH! I ) 

1 F ( PXX .LT • . 0001) GO TO 1718 

CALL MEANIPXX, KSTAT, VARMtl) ,RXDXX,RXHII) I 

DO 522 J = 1,12 

522 .RFIXDIJ.I ) = RFIXDIJ.I >*EXP! 1.5*VARH(I> > 

1718 CONTINUE 

1720 WRITE ( 6 , 104) ’ 

DO 1721' I = 1.NM1S 
WRITEI6.112) 

- IF I KSTAT .GT .0) HRITE(6,109> I, NAME! I ) , PXI 1 ) , ( ROISTI I ,L> ,L*1 ,41 , 

* CXI I) ,YDPLI I)iIS(l).SXtl) ,TRXl I ) 

1721 WRITE! 6, 109) ! .NAME ( I) , PLR! 1 1 i I RDI STII , L) , L = 1 ,41 ,C( I) ,YOPL 1 1 ) , 

1 ISm.SUSOfRXHlI) 

19 IF ! ISD.LT.O) GO TD 20 

C INPUT SPECIAL PROGRAMS HAVING NO ASSOCIATED LAUNCHES 
C KOOESP GT 100 

DO 1725 I = 1,6 
K = NMIS + 7 

READ! 5, 106) KO,NAHE(K),C(K) ,NDPL, I IS.SUSI K) , NST, NYRSXF ,CXX , XX (1 ) , 
1 SUSXX ,XX( 2 1 
I F(KO.EO.O) GO TO 20 
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0236 

0237 

0238 
D239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 
024 7 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 
0250 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 
027 6 
0277 


521 


523 


1725 

20 


806 

99 

100 

101 

102 

103 

104 

105 

106 


K00ESPI II = K0 
YDPLIK) = NDPL 
IS<K> = 1900 + IIS 

NYRSSTIKJ = NST 

NYRSFXIK) m NYRSXP 

NSPR = NSPR + 1 
IF(I.EO.l) WRITEI6, 114) 

WRITE ( 6* 1 12J 

I,NAME(K> ' ClKI *SUS(K),IS(K) f NDPL 
IF( XXi 1 ) *GT, .0001 ) CALL MEAN< XX( 1 } • KSTAT.PLVARI ? .K t yv rtv\t 

Tl'ZvRE^Er 1 »NAME( KI tC{KI ,SUSI K) » IS ( K ) * NDPL 

IF<NYR$XF .EO.O) GO TO 1725 

READ {5.1101 NSTRXF, IRFIXDtJ.K) , J"l, 12) .RXDXX.PXX 

NSTRFXCK) = NSTRXF ' .kauxx.rxx 

WRITfc(6,!13) IRFIXDtJ.K), J = 1 , 12 ) 

IFI PXX. LT. .0001) GO To 1725 
RX = 0.0 
DO 521 J = 1,12 
Rx = RX + RFlXD(J.K) 

nn L (« E ? lra ' KSTAT,V ®" ll!, ’ R)(0)!)l - l!xl 
UIJ 523 J ** 1,12 

RFIXDU.K) = RF I XD( J, K) »EXP1 1.5*VARM(KI ) 

WRITEI6,I13> IRFIXDtJ.K), J = 1,12) 

CONTINUE ’ 

IF(IG.LT.O) NSTG = KNSTG 
IFI IG.LT.O) LCK = KLCK 
IFI IFM.LT.O) NFAM * KNFAM 
IFI II.LT.O) NCI = KNC1 
IF I IP.LT.O) NpsKNP 
IFI ISO. LT.O) NSPR=KNSP 
1FIIM.LT. 01 NMIS » KNMIS 
RETURN 

WRITE(6,4102) 

RETURN 

FORMAT I8I3,F5.1,F12.2,F3.1,F5.1,17X,7I2I 

< 12, 1X,A4,3F6.3,3F5.3,3X, 2F6.3,3X,61 3, IX, 31 1 ) 

, I2,1X,A4,2F10 * 0,F4 * 1 > 2I3 *2 F 10*0*F7.0,F3.2,F7.0,F3.2) 

cnou^l .?u!? 13,AF10 * 0,F 4*1» 2 I 3 »2F10.0) 
rURnAT ( 1 H 1 ) 

FORMAT I 12, A6, F4. 2, 2X, 212, F7.0, 2F3.0,F7. 0,12, 20121 

FORMATI 13, A6,F10.2,I5,I2,F10.2,2I2,FI0.2»F3.2,F10.2,F3.2) 
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'0278 

0279 

0280 


0281 

0282 

0283 

0284 

0285 

0286 

0287 


0288 

0289 


0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 


0303 

0304 


107 FORMAT I2X.3F10.2, 15, 4FS.3, 10X,512,I3) 

108 FORMAT I3IF10.0.F3.2) ) 

109 FORMATI IX, 12, IX, A6,2X,4HPLR=,F6.1,8H DIST BY ,4( F3. 2 , 2H, I , 5H DEV=, 

1 F8 . 1 , 

2 5H, FOR ,15, 14H YRS START ING, 16, 2X, 5HSUST= , F8. 1 , 3X , 6HF I XED= ,F8. 1 ) 

110 FORMAT I I 3 , 12F5.2 ,F6. 1, F3.2 ) 

11 1 FORMAT I4X.2F5.0, I3.F6.2.F6. 1,F3.2,F6.0,F2.0,212,3F5.I .F3.2.F6.D 
*F3.2»F6.1,F3.2)' 

112 FORMAT 1 1 HO ) 

113 FORMAT ( 14H FIXED COSTS =, 12F9.2) 

114 FORMAT UH1.4X, ’SPECIAL PROGRAMS' //) 

115 FORMAT I 1H , I3,1X.,A6,3X,'0EV =• , F8. 2, 3X. • SUST =',F8.2,3X, 

* 'DEV STARTS', I 6 ,3X, ' FOR ■ , 1 4 , 1 X, • YEARS ' I 

213 FORMAT I 1 6H STAGE COST DATA/6H0TITLE,3( 16H RECURRING LC ),68H D 
IE VELOPMENT SUSTAINING AVAILABLE SHARED COST GROUPS BATCH FACT/ 

2 10X, 10HIHAR0WARE) , 

3 6X , 1 OH I ETR ONLY 1 ,6X, 10H1 WTR ONLY) , 30X .8HFR0M TO//) 

214 FORMAT UH0///17H0SHARED COST DATA/37H0N0. TITLE DEVELOPMENT S 
1UST A I MING// ) 

215 FORMAT ( 1HO///22HOINTEGRATION COST DATA /59H0L OWE R UPPER RECUR 

1RING LC DEVELOPMENT SUSTAINING/14H GROUP GROUP//) 

216 FORMAT I 2X,A4,4X,A4,Fll.2,F7.3,2F13.2) 

217 FORMAT I 14H1MI SS 1 ON M0DEL/48H0 MISSION VELOCITY PAYLOAD P 
1RI0RITY TR, 17X, 15HLAUNCH SCHEDULE//50X.20I4/1H /I 

219 FORMAT I IX , 1 2 , IX , A6, ZX , 2F 10.0, F10.2.4X , I 2 ,2X ,20 1 4 J 
2141 FORMAT I 1X,I2,2X,A4,2X,2F13.2) 

4102 FORMAT I 1H0///5X ,26HEND OF DATA - JOB COMPLETE! 

5000 FORM AT I 2 1 2X , 12, E 5 . 0 , F 3, 0 , 13, 3F5 . 0,10X1) 

5002 F 0RMAT18X, 213, 2F6.0,6X, 213, 2F6.0,6X, 213,2 F6.0,6X) 

5003 FORMAT I27X,A4,1X,5HSTAGE.17X,3IF9.2,F8.2)I 

5004 FORMAT I 27X ,A 4 , lx , 6HSHAR6D , 16X ,31 F9.2, F8 .2) ) 

5005 FORHAT I 27X, 1 5HINTEGR AT ION OF ,A4,5H AND ,'A4» 8X, F8 .2 ,2 1 9X ,F8.2 ) ) 
8001 FORMAT 

1 UX,A4,1X,3< F9.2,F7.31,F13.2,F12.2,2X, 14, IX , 14, 2X ,414, 19) 

8003 FORMAT I 4X . 5F 10. 3 , F3 .2 ) 

8004 FORMAT 13X , l 9HRECURR I NG COST TYPE,I2,22H FOR X LESS THAN OR 

1 F6.2.14H, TOTAL COST =>, F6. 2, 19H. FOR X GREATER THAN,F6.2, 

2 14H, TOTAL COST =,F6.2,4H X *,F6.2) 

8005 FORMAT C 16H0 REUSABLE STAGE, 4x,2DHUNIT PURCHASE PRICE*.F7.2, ' I*. 

* F7.2, •)•) 

9003 FORMATI 1H0/ / /14H0PAD COST OATA/12HONO. COHPLEX , 2X , 1 1HLAUNCHES/YR , 

1 37X,5HPA0 I, 12X? 

2 5HPAD 2,1 2X , 5HPA0 3/59X , 31 1 1H0E V SUST,6X)//) 


PAGE 00 
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0305 

0306 

0307 


FORTRAN 


9005 FORMAT t I4,2X,A4 t F5.01 

9006 FORMAT I1X. 1 2, 2X > A4.5X, F6.2) 
END 


IV G LEVEL 1, HOD 4 


OAT INS 


DATE « 71084 15/24/56 


PAGE 00 


TOTAL HEHORV REQUIREMENTS 003E60 BYTES 



F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 



VARIABLE OPTIONS USED - SIZE*! 126976,24576) 

DEFAULT OPTION(S) USEO 

IEWOOOO 

NAME M0X02DSIRI 


IEW0461 

18CUM= 


IEW046I 

MEAN 


I EH 04 6 1 

MAXO 


IEW0461 

EXP 



MODULE MAP 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

OAT INS 

00 

3E60 

SAVER 

3E&0 

FCO 

SAVDMP 

4E20 

14BC 

SAVSAR 

62E0 

A58 

SAVE1 

6038 

FC4 

SAVZ 

7000 

FEO 

SAV3 

8CE0 

980 

SAV4 

9660 

3188 

SVACAV 

C7E8 

B48 

SAVALL 

0330 

3A1C 

VARNCE 

10D50 

AOC 

TEMP 

11830 

4110 

SCRACH 

15940 

6A60 


ENTRY 

NAME LOCATION 


NAME LOCATION 


NAME LOCATION 


ENTRY ADDRESS 
TOTAL LENGTH 


00 

IC3A0 


****K0X02US NOW REPLACED IN OATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


I EW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED'. 


117) 


OS/360 FORTRAN H 


DATE 71. 084/15. 27. A3 


ISN 0002 


COMPILER OPTIONS - NAME = MA IN ,0PT=02 , L INECNT=44, SOURCE, BCD, NOLIST, NODECK , LOAD, NOMAP ,N0EDI 
SUBROUTINE OECSNI 


I SN 0003 
ISN 0004 


ISN 0005 , 

ISN 0006 

ISN 0007 
ISN 0008 

ISN 0009 

ISN 0010 
ISN 0011 


ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 0021 


C 

C 

C 


T r< I >lT SUf ^ U I I ^ E SETS UP DS C0STS * CALCULATES AVAILABILITY OF EACH DECISION 
COST, AND MATCHES THESE COSTS WITH EACH VEHICLE THEN PRINTS THEM OUT 

REAL nperpd 

INTfcGER*2 LTR , NPSTG, NPAD, NPFAM, NFS, NPINTL,NPINTU, MAPS, MAPF, MAPI , 

1 FINISH,NSTG,NFML,NFMU,KODS,MAS,LABS,LABF,LABI ,LSA,NYS,KODEF» 

1 JST ’ KST ' VEH,NMULT,NONREC,NYD,IS,MAT,LYR,LETT,LYD, 

5 MINfMArfMAIC 

COMMON/S AVDMP/ NFAM, KFLAG, FAMI 30) ,KQDEF| 30) , FMNRI 30) ,FMSUSI30), 

»LSAI40),SNRI40) , NYSf 40) ,DINT( 40 ) , SI NT (40) »KST ( 40) , 

2 YDI (40) , YDS (40) , IST(40),FMSLSI30,2) , SUSLSt 40,2),SINTLSI40,2), 

3 LST(30,5),YDPF(30,5),MST(30.10) ,YDPS( 30,10) 

F IN ISH,NSTG, NO , ILY,LAB F ( 30 ) , LABS I 40 ) , LABI ( 40 ) , 

1 NFMLI40) , NFHUI 40 I ,K00SI40) , STS (41) ,STG(40) ,VLR( 50) ,WPR( 50) , 

2 RPLM(SO) , MAS ( 40, 3) , RXO(12,50) 

C0MM0N/SAV3 /GRO, GUESS, LP,NSOL,MSOL,NP,MOS,NMIS,NSPR, NPERPD (30) , 

1 PAD! 30 ) , LTR (50),PLR(50),RD|ST( 56,4 ) ,ALPI(4,60) 

C0MM0N/SAV4/ MAP ( 30,3), MAIC(40,3), 

! Ufcrin ,, > jNPFAM(30,5},NPINTL(30,5),NPINTU(30,5>, 

1 NFS 1 40,41 .NPSTGI30.10) .MAPS 1 30, 10) ,MAPF(30, 10) .MAPI (30, 10) , 

2 PFAMDt 30,5,2) ,PFAMS( 30, 5 , 2) , PINTS! 30,5, 2 ) , PSTG0(30,20,2) , 

3 PSTGS l 30f 10 ♦ 2 ) 

C OMMON/S AVAL L/LCK,SLO»NM,NEXD,NV, NUMD , MYRS ,LZOPT ( B ) , NYDI46 ) ,MAT (46 
1) ,SUST(46),DS<46),LYDC46) , YDI 46) ,IS( 102 ), LYR ( 252 ), LETT! 250 ) , 

2 MINI 250 ) , YRLMI 250) ,VEH(4,60) ,NONREC( 120,20) ,NMULT ( 60, 50 ) 

COMMON/ SCR AC H/LYF( 30) »NYF ( 30} ,DUM{ 6740 ) 

IF(FINISH.GT.l) GO TO 2 

***56T UP OS COSTS FOR BRANCH AND BOUND PROCEDURE*** 

CALCULATE AVAILABILITY OF EACH DECISION COST 

NUMO * 0 

DO 3 I * l.NSTG 

NX = LSA(I) 

LSA [ I 1 = MINOt NX ,MYRS ) 

MAS ( I , 1 ) = 0 
X = LABS ( I ) 

IF(SNRI I ICSTSd 16X.LT..01) GO TO 9024 
NUMD = NUMD £ 1 


NAME 


,|D,NO 
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ISN 

0022 

DS I NUMD) =SNR t I } . 


ISN 

0023 

IFILABSI II.E0.0) GO TO 302 


ISN 

0025 

L = LABSI1I 


ISN 

0026 

DO 301 K = 1,12 


ISN 

0027 

301 OS t NUMD 1 = OSINUHOI £ RXD(K,L> 


ISN 

0028 

302 SUST ( NUMD I =STSI 1 1 


ISN 

0029 

MAT! NOW)) = I 


ISN 

0030 

HAS! 1,11 = NUMD 

C NYD = HRST YEAR COMPONENTS DEPENDENT 

ON DEV COST 

ISN 

0031 

NYDINUMD) = NYSI I) 

C LYD = LAST YEAR COMPONENTS DEPENDENT 

ON DEV COST 1 

ISN 

0032 

LYO(NUMO) * LS At I J 


ISN 

0033 

YO(NUMD) = YOSU I 


ISN 

0034 

NDtIM = NUMD £ NHIS £ NSPR 


ISN 

0035 

ISINDIJM) = 1ST! I) £ 1900 


ISN 

0036 

9024 DO 9025 J = 1,2 


ISN 

0037 

MAS! I • J£1 1 = 0 


ISN 

0038 

IFISUSLSI I,J) .LT..01.0R.NP.E0.0) 

GO TO 9025 

ISN 

0040 

NUMO = NUMD C 1 


ISN 

0041- 

nS(NUMD) = 0,0 


ISN 

0042 

SOSTtNUMOl = SUSLSt ! , J 1 


ISN 

0043 

MAT (NUMD) = I £ 2000 


ISN 

0044 

MAS 1 1 , J£1 1 = NUMO 


ISN 

0045 

, NYD(NtlMO) = NYSI 11 


ISN 

0046 

LYD (NUMD) = LSAI 1 1 


ISN 

0047 

YD I NUMO I - 0.0 


ISN 

0048 

NDUM * NUMD £ NMIS E NSPR 


ISN 

0049 

ISINDIJM) = ILY £ 1900 


I SN 

0050 

9025 CONTINUE 


ISN 

0051 

3 CONTINUE 


ISN 

0052 

IFINFAM.EO. 0) GO TO 601 
C CALCULATE FAMILY AVAILABILITY DATE 

C FIRST YR. FAMILY IS AVAIL. = 1ST YR. ANY STAGE IN ' 

ISN 

0034 

DO 422 11- = 1,NFAM 


ISN 

0055 

I = K0DEFII1I 


ISN 

0056 

LYFII) = 0 


ISN 

0057 

422 NYFII) = MYRS 


ISN 

0058 

DO 423 J = l.NSTG 


ISN 

0059 

DO 424 MS = 1,4 


ISN 

0060 

1 = NFS I J,M5) 


ISN 

0061 •• 

IF! I. £0.0) GO TO 423 


ISN 

00 63 

NX, = NYSIJ) 


ISN 

0064 

NYFII) = MINOINYFI II ,NX) 


ISN 

0065 

NX = LSAI J I 


ISN 

00 66 

LYFII! = MAXOI LYFI 1 1 ,NX) 


I SN 

0067 

424 CONTINUE 


ISN 

0068 

423 CONTINUE 


ISN 

0069 

DO 6 11 = 1,NFAM 


ISN 

00 70 

I = KODEF 1 1 1 1 


ISN 

0071 

MAFII .11=0 


ISN 

0072 

X = - LA8F I I ) 


ISN 

0073 

IF! FMNRI 11 EFMSUSI IIGX.LT..01) GO 

TO 9026 

ISN 

00 75 

NUMD = NUMD £ 1 

ISN 

0076 

'DS I NUMD I = FMNRI I) 


ISN 

00 77 

IFILABFID.EO.dl GO TO 304 


ISN 

0079 

L = LABFII) 


ISN 

0080 

DO 303 K = 1,12 

* 

ISN 

0081 

303 DS 1 NUMD I = DS 1 NUMD) £ RXDIK.L) 


ISN 

00 82 

304 SUST I NUMD) =FMSUS( I I 


ISN 

0083 

MAT I NUMD 1 = -I 


ISN 

0084 

MAF 11,1) = NUMD 


ISN 

0085 

NX -= YDFI1) 6 .9 


ISN 

0086 

NX = JSTI1) - ILY £ NX 


ISN 

0087 

NYDINUMD! = MAXO INYFII),NXI 


ISN 

00 88 

LYDINUMO) = LYFII) 


ISN 

0089 

YOI NUMD 1 = YDFII) 


ISN 

00 90 

NDUM = NUMD £ NMIS £ NSPR 


ISN 

0091 

ISINDUM) = JSTI I ) E 1900 


ISN 

0092 

9026 DO 9027 J = 1,2 


ISN 

009 3 

MAPI I, JEl) = 0 


ISN 

00 94 

IF IFMSLSI I,J).LT..01.0R.NP.EO.O) 

GO TO 9027 

ISN 

0096 

NUMO = NUMD C 1 


ISN 

0097 

DSINUMD) ■= 0.0 

► 

ISN 

0098 

SUST 1 NUMD) =■ FHSLSI 1 , J) 


ISN 

0099 

MATINUMDI = -I £ 2000 


) ISN 

0100 

MAFI I , JEl I = NUMD 


ISN 

0101 

NYOINUMO) = NYFII) 


ISN 

0102 

LYDINUMO) = LYFII! 


ISN 

0103 

YDINUMD) = 0.0 


, ISN 

0104 

NDUM = NUMO £ NMIS £ NSPR 


ISN- 

0105 

ISINDUM! = ILY £ 1900 


ISN 

0106 

9027 CONTINUE 


ISN 

0107 

6 CONTINUE 


ISN 

0108 

601 IFINC1.E0.0) GO TO 61 
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ISN 

0110 


DO 60 I = l.NCI 

ISN 

0111 


JF * NFKLU) 

ISN 

0112 


KF = NFMUl I I 

ISN 

0113 


MAICt 1,1) = 0 

ISN 

0 1 1 A 


X = LABI I I) 

ISN 

0115 


IFIOINTI mSINTI IIEX. LT.. Oil GO TO 9028 

ISN 

0117 


NUMD * NUMO 6 1 

ISN 

0118 


DS INUHO) = DINT ( I I 

ISN 

0119 


IFILABM D.EO.OI GO TO 306 

ISN 

0121 


L “ LABI (II 

ISN 

0122 


DO 305 K * 1,12 

ISN 

0123 

305 

OS I NUMD I - DS(NUHD) C RXDIK.L) 

ISN 

0124 

306 

SUST ( NUMO 1 3 Si NT ( 1 1 

ISN 

0125 


HATINUM01 = -100 -I 

ISN 

0126 


HAICH'.ll - NUMD 



C FIRST YR. INT. COST IS AVAIL. = 1ST YR. BOTH 

I SN 

0127 


NYDINUMD) = HAXOINYFI JF),NYFIKF) 1 

ISN 

0128 


LYDINUMD) = HINOILYFtJFI.LYFIKFIl 

ISN 

0129 


YD I NUMD I = YDItl) 

ISN 

0130 


NDUM = NUMO £ NMIS £ NSPR 

ISN 

0131 


ISINDUM) = KST I I I £ 1900 

ISN 

0132 

9028 

DO 9029 J = 1,2 

ISN 

0133 


MAICt I,J£1> = 0 

ISN 

0134 


IF (SINTLSI I , J) . LT. . 01 .OR.NP.EQ.C) GO 

ISN 

0136 


NUMO « NUMD £ 1 

ISN 

0137 


DS(NUMD) = 0.0 

ISN 

0138 


SUST ( NUMD I = SINTLSI I , J) 

ISN 

0139 


MAT 1 NUMD 1 = -100 - I £ 2000 

ISN 

0140 


MAICI I.J611 = NUMD 

ISN 

0141 


NX » YOU I) £ .9 

I SN 

0142 


NX = KST I 1 1 E NX - 1LY 

ISN 

0143 


NYDINUMD) = MAXOI NYF I JF ) ,NYF(KF) ,NX) 

ISN 

0144 


LYOINUMDI = HINOILYFl JF) ,LYF(KFI ] 

ISN 

0145 


YOINUMD) = 0.0 

ISN 

0146 


NDUM = NUMD £ NMIS E NSPR 

ISN 

0147 


ISINDUM) = 1LY £ 1900 

ISN 

0148 

9029 

CONTINUE 

ISN 

0149 

60 

CONTINUE 

ISN 

0150 

61 

IF INP.EO.OI GO TO 9010 

ISN 

0152 


DO 9011 I = 1,NP 

ISN 

0153 


DO 9030 J = 1,5 

ISN 

0154 


MAPFI I , J) = 0 

ISN 

0155 


IF I PFAHOt I , J# 1 1 £ PFAMSI I , J , 1) .IT. .Oil 

ISN 

0157 


NUMD = NUMD £ 1 

ISN 

0158 • 


OS I NUMD I = PFAMDl I ,J,1 1 

ISN 

0159 


SUST t NUMD) = PFAMSI I, J,l> 

ISN 

0160 


MAT I NUMD ) = -200 - I £ 2000 

ISN 

0161 


MAPFI I, J) = NUMD 

ISN 

0162 


NX *= YDPFII.JI £ .9 

ISN 

0163 


NX = NX £ LSTl I , J ) - 1 LY 

ISN 

0164 


NYDINUMD) = MAXO !NX,1> 

ISN 

0165 


LYDINUMD) = MYRS 

ISN 

0166 


YDINUMD) = YOPFII.J) 

ISN 

0167 


NDUM = NUMD £ NMIS £ NSPR 

ISN 

0168 


ISINDUM) = LSTIItJ) £ 1900 

ISN 

0169 

9030 

CONTINUE 

ISN 

01 70 


DO 9031 J = 1,10 

ISN 

0171 


MAPS I I , J ) = 0 

ISN 

0172 


IF IPSTGDII, J,l) £ PSTGSII,J, 11.LT..01 ) 

ISN 

0174 


NUMD = NUMD £ 1 

ISN 

0175 


DSINUMD) 3 PSTGDI I , J , 1 1 

ISN 

0176 


SUST I NUMD) = PSTGSI I , J , 1 > 

ISN 

0177 


MAT 1 NUMO) = -300 - I £ 2000 

ISN 

0178 


MAPSI I , J ) = NUMD 

ISN 

0179 


NX * YDPSIItJ) £ .9 

ISN 

0180 


NX = NX £ MSTI I , J) - ILY 

ISN 

‘0181- 


NYDINUMD) = MAXO INX,1> 

ISN 

0182 


LYDINUMD) = MYRS 

ISN 

0183 


YOINUMD) = YDPSIItJ) 

ISN 

0184 


NDUM = NUMD £ NMIS £ NSPR 

ISN 

0185 


ISINDUM) = MSTI I, J) £ 1900 

ISN 

0186 

9031 

CONTINUE 

ISN 

0187 


DO 9032 J = 1,5 - 

ISN 

0188 


MAPI I 1 1 J i = 0 

ISN 

0189 


IF I P INTSC I , J, 1 ) .LT. .01) GO TO 9032 

ISN 

0191 


NUMD = NUMD £ 1 

ISN 

0192 


DSINUMD) = 0.0 

ISN 

0193 


SU5TINUMD) = PINTS I 1 1 J, 1) 

ISN 

0194 


MAT(NUMD) = -400 - 1 £ 2000 

ISN 

0195 


MAP 1 1 1 , J ) = NUMD 

ISN 

0196 


JF = NPINTLI I, Jl . • ’ *■ 

ISN 0197 


KF = NPINTUII.J) 

ISN 

0198 


NYDINUMD) = MAXOI NYF I JF) ,NYFIKF1 I 

ISN 

0199 


LYDINUMD) = MYRS - 


BOTH FANS. ARE AVAIL 


GO TO 9029 


01) GO TO 9030 



ISN 

0200 


YDINUMD) = 0.0 

ISN 

0201 


NDUH » NUMD £ NMIS 6 NSPR 

ISN 

0202 


ISINDUM) = ILY £ 1900 

ISN 

0203 

9032 

CONTINUE . 

ISN 

0206 

9011 

f 

CONTINUE 

ISN 

0205 

9010 

r 

CALL HATCHI 

ISN 

0206 

r 

lFIKFLAG.E0.il RETURN 

ISN 

0208 

U 

2 

r 

CALL PRINTI 

ISN 

0209 


RETURN 

ISN 

0210 


END 


****** END of compilation ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - SIZE=( 126976,265761 DEFAULT OPTION(S) USED . 

IEWOOOO NAME M0X02DNIR I 

1EW0661' MATCH! . 

IEW0661 PRINT! 


. CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 




NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

OECSNI 

00 

10C8 





SAVOMP 

IOC 8 

16BC 





SAVE 1 

2588 

FC6 





SAV3 

3550 

980 





SAV6 

3ED0 

3188 





SAVALL 

7058 

" 3A1C 





SCRACH 

AA78 

6A60 





LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

120 


SAVOMP 

SAVOMP 

126 

SAVE1 

SAVE1 

128 


SAV3 

SAV3 

12C 

SAV6 

SAV6 

130 


SAV6 

SAV6 

136 

SAV6 

SAV6 

.138 


SAVALL 

SAVALL 

13C 

SAVALL 

SAVALL 

160 


SCRACH 

SCRACH 

16* 

MA rrul 

*nidoccnt ucq 

168 


PRINTI 

SUNRESOLVED 





ENTRV ADDRESS 
TOTAL LENGTH 


00 

11608 


****M0XO20N NOW REPLACED IN DATA SET 


DIAGNOSTIC HESSAGE DIRECTORY 


IEW0661 WARNING - SYMBOL -PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 
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117) 


0S/360 FORTRAN H 


DATE 71.084/15.28.24 


CUMPILER OPTIONS - NAME* MAIN, OPT-02, LINECNT=44, SOURCE .BCD, NOL )ST, NODECK .LOAD, NOMAP, NOEDIT, 10, NO 
ISN 0002 SUBROUTINE LGONDI 

C THIS SUBROUTINE CALCULATES THE RECURRING AND NON-RECURRING LOWER 
C BOUND WITH A PENALTY FUNCTION INCLUDED IF W N£ 1.E30 

C 

ISN 0003 REAL NPFRPD 

ISN 0004 INTEGERS NSAVE .NADD.NX ,MI NOPT ,MORE ,NTGYTR, 

1 VSH,NMULT,NUNREC,NYD,IS,MAT,LYR,LETT,LYD,MIN,KOUT,LTR,NINTYR ' 

C 

I5N 0005 COMMON/S AV3/GR0, GUESS ,LP tNSOL ,MSOL,NP,HOS ,NHI S,NSPR,NPERPD(30) , 

1 . PAD(30)*LTR(50),PLRI50),RDIST|56,4),ALPII4,60) 

I SN 0006 COMHON/SAVALL/LCK,SLO,NM,NEXD,NV,NUMD.MYRS,LZOPT( 81 ,NYD( 46) .HATI46 

1) , SUST t 46) ,DS(46) , LYOI 46) , Y0( 46) ,IS( 102) ,LYR I 252) , LETT I 250) , 

2 MINI 250) , YRLHI 250) , VEHI 4,60) .NONRECI 120,20) ,NMULT(60,50) 

ISN 0007 COMKON/TEHP/VNHI 2,250) , I FL AG,K I , NEXT, LOUT , SA VS 1 40 ) , K0UTI40 ) , 

1 NI NTYR 140, 20) .NTGYTR [40 , 20 , 2) ,RECURI 60 ,20,2 I 
ISN 0008 COMHON/SCRACH/EXTRA, NADD,NX,MORE( 50) ,LZ(46 ) , Wl 500) ,W2( 500) , 

1 TDSI 500),WR(499) ,Z(500) .COST (2, 250) ,HI NOPT ( 246,9) ,NODE( 5,500) t 

2 NPOS t S IGSOI 9 ) ,ETC19) , 

4 NCOST,LB,KX,KZ,NSAVEI10),KEEPI40),MZ<60) ,DUM 
C 

ISN 0009 IFIL8.E0.50) GO TO 54 

C ***FIND NEW RECURRING LOWER BOUND*** 

ISN 0011 49 W I KX ) *0. 

ISN 0012 W2IKX) = 0.0 

ISN 0013 00 50 J=1,NH 

ISN 0014 IFIYRLMI JJ.LT. .001) GO TO 50 

ISN 0016 CALL UNPACK ( MZ, VNMI 1, J ) ,NV ,1) 

ISN 0017 - COST I'l , J ) = 1.0E30 

ISN 0018 COST ( 2 , J ) - 1.0E30 

ISN 0019 KO a LYR(J) 

ISN 0020 JX a LFTTIJ) 

ISN 0021 ITR = LTRIJX) 

ISN 0022 DO 48 II = 1 ,NV 

ISN 0023 IFIHZI UI.EO.O) GO TO 48 

ISN 0025 1=11 

ISN 0026 ' I F ( ITR. EO* 2 ) ! Ml C NV 

ISN 0028 00 47 M=1 , 20 

ISN 0029 IFINONRECI I ,M) .EQ.O) GO TO 475 

ISN 0031 NO = NONRECI I, M) 

ISN 0032 IFUI»LZ(NO).LT. KO 1 GO TO 48 

ISN 0034 47 CONTINUE 

ISN 0035 475 X = NMULTIIl.JX) 


ISN 0036 
ISN 0037 
ISN 0039 
ISN 0041 
ISN 0042 
ISN 0043 
ISN 0044 
ISN 0045 
.1 SN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0050 
ISN 0052 
ISN 0053 
ISN 0055 
ISN 0056 
ISN 0D67 
ISN 0059 
ISN 0060 
ISN 0062 


ISN 00 64 
ISN 0065 
ISN 00 66 
ISN 0068 
ISN 0069 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0075 
ISN 0076 
ISN 0077 
ISN 0079 
ISN 0081 
ISN 0082 
ISN 0083 
ISN 0084 
ISN 0085 


CX=YRLM( J)*RECURtl 1,K0, ITR)*X 
IFICX .GE .COST (2, J ) ) GO TO 48 
IFICX.LT. CO STIl.J)) GO TO 43 
COST ( 2 , J ) = CX 
GO TO 48 

43 COST ( 2 , J )* = C0ST(1,J) 

COST! 1,J) = CX 
MINI J ) = II 
48 CONTINUE 

W I KX)=W ( KX ) CCQST I 1 , J ) 

W2IKX) = W2IKX) £ COST! 2 ,J ) 

50 CONTINUE 

IFIKX.E0.NX1 GO TO 510 
KZ = KI*LZINCOST) 

IFIWI KX) .LT.1.0E20) GO TO 508 
TGO = 0.0 
GO TO 38 

508 IF(KZ.EO.O) go TO 510 
KY = NSAVE l LB J 

512 IF(W(KX).GT.W IKY) -.0001. AND.W2I KX ) .GT. W2 I KY )— . 000 1 ) GO TO 38 

I F [ W ( KX ) .GT.WIKY ) — .000 1 . AND.W2 t KX ) . GT. 1.0E25 . ANO. W2 ( K Y )— W2 lKXt.LT. 
1 ‘ 1.0E25) GO TO 38 
C 

. C CALCULATE LOWER BOUND USING PENALTY FUNCTION BASED ON VEHICLES 
510 00 350 NIC = l.NUMD 
KEEP(NIC) =.-l 

IFI LZINIO.LT. 15) KEEP ( NIC) = 0 
350 CONTINUE 
355 TGO - 0.0 
IV = 0 
TG * 0.0 

354 00 351 IX = 1,NV 

IFI IX. EO. I V ) GO TO 351 
VGO = 0.0 

330 00 90 J = 1 ,NH 

IFIYRLMI J).LT.. 001) GO TO 90 
IF(MINIJ).EO.IX) GO TO 91 

90 CUNT 1NUE 
GO TO 351 

91 PF = 0.0 ■ 

KTV = 0 

11 = IX 
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ISN 

0086 

ISN 

0007 

ISN 

0089 

ISN 

0090 

ISN 

0092 

ISN 

00 93 

ISN 

0095 

ISN 

0096 

ISN 

0097 

ISN 

0098 

ISN 

0100 

ISN 

0101 

ISN 

0103 

ISN 

0104 

ISN 

010 5 

ISN 

0106 

ISN 

0108 

ISN 

0109 

ISN 

0110 

ISN 

0111 

ISN 

0112 

ISN 

0113 

ISN 

0115 

ISN 

0116 

ISN 

0117 

ISN 

0119 

ISN 

0120 

ISN 

0121 

ISN 

0122 

ISN 

0123 

ISN 

0125 

1 SN 

0127 

ISN 

0129 

ISN 

0130 

ISN 

0131 

ISN 

0133 

ISN 

0134 

ISN 

0135 


JX = LETT t J ) 

,IFILTR(JX).EQ.2> 11= I X £ NV 
Ori 341 H = 1,20 

1FIN0NRFC! I1,M).EQ.0) GO TO 3415 
NO = NONRfcC! Il.M) 

■ IF(KEEPfNO).EO.O) GO TO 341 
VGO = VGO GDStNO) G FLOAT ( KI ) *SUST! NO) 

XTV = 1 
341 CONTINUE 

3415 IFIKTV.EO.Ol GO TO 351 . 

DO 331 J * l.NM 

IFlYRLMt J).LT.0.001.0R.MIN! Jl.NE.IX) GO TO 331 
PF = PF G C0STI2.J) - COSTll.J) 

331 CONTINUE 

VGO = AMINl(VGO.PF) 

IFIVGO.LT. TG) GO TO 351 
IV = IX 
TG = VGO 
12 = II 
•351 CONTINUE 

TGO = TG 6 TGO 

IF ITG.LT. GUESS*. 01) GO TO 38 
TG = 0.0 
00 352 M = 1,20 

I F I NOMRECI I2,M) .EQ.O) GO TO 354 
NO = NONREC I I 2 ,H) 

KEEPINO) * 0 
352 CONTINUE 
GO TO 354 

38 IFtKZ.EO.OI TOSt KX) = TOSINX) 

IF(KZ.GT.O.AND.KX.NE.NX) TDS 1 KX) = TDSINX) 

1 G DS(NCOST) G FLOAT! LB*Kl-NVDt NCOST 1 Cl ) *SUST INCOST ) 

54 IF 'tKX.EO.NXI TOSINX) =■ TOStNx) G 

1 OSINCOST) 6 FLOATIL YOt NCOST J-NYOI NCOST) Gl.) *5U5T (NCOST ) 

DMIN * TGO G TOS(KX) 

507 Z(KX) = DMIN G WIKX) 

IFtLP.GT.O) WRITE! 6, 204) KX,NX,NCOST,KZ, W!KX) ,OMI N, Z ( KX ) 

RETURN 

204 FORMAT I 1H ,4 ! 13, 5X) , 3! F9.2 ,5X) ) 

END 


***** END OF COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, HAP, NCAL 

VARIABLE OPTIONS USED - SIZE” ( 126976,24576) DEFAULT OPTION(S) USED 

IEWOOOO NAME M0X02LD!R) 

IEW0461 IBCOM* 

IEW0461 UNPACK 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 




NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

LBONDI 

00 

A50 





SAV3 

A50 

9B0 





SAVALL 

. 13D0 

3A1C 





TEMP 

4DF0 

4110 





SCRACH 

8FO0 

6A60 





LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

168 


SAV3 

• SAV3 

16C 

SAVALL 

SAVALL 

170 


SAVALL 

SAVALL 

174 

TEMP 

TEMP 

178 


SCRACH 

SCRACH 

' 17C 

SCRACH 

SCRACH 

180 


SCRACH 

SCRACH 

184 

SCRACH 

SCRACH 

168 


SCRACH 

SCRACH 

18C 

IBCOM” 

tUNRESOLVED 

190 


UNPACK 

tUNRESOLVEO 

ac 

SCRACH 

SCRACH 

94 


SAVALL 

SAVALL 




ENTRY ADDRESS 

00 


• 



TOTAL LENGTH 

F960 






****M0X02L0 NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


D-32 



1 17 1 OS/360 FORTRAN H DATE -71 .084/1 5. 28. 56 

COMPILER OPTIONS - NAME* MAIN, CPT=02, LINECNT-44, SOURCE, BCD, NOL I ST, NODECK, LOAD, NGMAP, NOEOIT, 10, NO 
ISN 0002 SUBROUTINE U STC 

ISN 0003 DOUBLE PRECISION NAME, NAMEN, NAMEK 

ISN 0004 INTEGER*2 KODESP ,KODEM,NSYR,NSFX,NRFX,NYRSST,NSTRFX,NYRSFX,NPROG, 

1 KPROG,KOOE,LTR,YDPL , 

ISN 0005 REAL LEVEL, NPERPD 

ISN 0006 CnMMClN/SAV2/EXT, ACCl iKNSTG, KNFAH.KNC I , KNP , KNMIS, JFL AG, TREF, NCSTR, 

1 PMAX,PM1N,ISTRT,!FIN,MAX!TR,M1TR,KODESPI6),TITLE(10) .LEVEL (20 1, 

2 CNTRVLI 20) .FIXED! 20) ,K0DEM(50) ,NSYR( 50) , NSFX I 50) .NAME! 56) , 

3 Y0PU561 ,NRFX(50) ,NYRSST(84) ,NSTRFXI84) ,NYRSFX( 84 ) ,SUS 1 84) ,C( B4) 

4, RI841, SI84) ,CS(90) ,N PROG! 90) ,K PROG! 90) , K0DEI90) 

ISN 0007 COMMON/ SAV 3 /GRO, GUE 5S .LP.NSOL .MSOL.NP »H0S,NM1 S, NSPR, NPERPD! 30) , 

1 PAD(30),LTRI50),PLRI50),RDIST(S6,4) ,ALPI!4,60) 

ISN 0008 IF(NCSTR.EO.O) RETURN 

ISN 0010 WRITE 16, I> NCSTR 

ISN 0011 1 FORMAT I 1HI , 25X, 1 2, 1 CONSTRA INTS* /6X, ■ KODE> ) 

ISN 0012 DO 200 I = 1, NCSTR 

ISN 0013 L = KODEI I ) 

ISN 0014 JFlL.LT.l.OR.L.GT.ll) GO TO 200 

ISN ; 0016 J = NPROGI 1 ) 

ISN 0017 K = KPROGI 1 ) 

ISN 0018 IFIJ.LE.NMIS C NSPR) NAMEN = NAME! J ) 

ISN 0020 NAMEK = NAME! K ) 

ISN 0021 Z = CS f I > 

ISN 0022 GOTO 110,20,30,40,50,60,70,80,90,100,110), L 

ISN 0023 10 WR1 TE ( 6, 1 1 ) L.J, NAMEN ,K, NAMEK, Z 

ISN 0024 11 F0RMAT(6X, 13, 3X, 'START ',I3,1X,A6,' AFTER END ',I3,1X,A6,» t',F3.0 

*) • ■ * 

ISN 0025 GO TO 200 

ISN 0026 20 WRI TE! 6 , 21 ) L.J .NAMEN ,2, K, NAMEK 

ISN 0027 -• 21 FORMAT ( 6X, 13, 3X, • END ' , 13, IX, A6,.' £',F3.0,' BEFORE START ',13, IX, 

* A6) 

ISN 0028 GO TO 200 . - 

ISN 0029' 30 WRITEI6.31) L.J, NAMEN, Z 

ISN 0030 31 FORMAT I 6X, 13 , 3X , • START ',I3,1X,A6,' IN',F6.0> 

ISN 0031 GO TO 200 

ISN 0032 40 HRITE 16,41) L.J, NAMEN, Z 

ISN 0033 41 FORMAT !6X,I3,3X,*END OEVL ',I3,1X,A6,' IN' ,F6.0) 

ISN 0034 GO TO 200 

ISN 0035 50 WRITE 16,51) L.J, NAMEN, Z 

ISN 0036 51 FORMAT I 6X, 13, 3X» 1 3, IX , A6, F3.0, ' YEARS DEVELOPMENT*) 

ISN 0037 GO TO 200 

ISN 0038 60 IF (Z.LE.O.) GO TO 64 


ISN 0040 
ISN 0041 

ISN 0042 
ISN 0043' 
ISN 0044 
ISN 0045 

ISN 0046 
ISN 0047 
ISN 0048 
ISN 0049 
ISN 0050 
ISN 0052 
ISN .0053 
ISN 0055 
ISN 0056 
ISN 0057 
ISN‘ 0058 
ISN 0059 
ISN .0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0064 

ISN 0065 
ISN 0066 
ISN 0067 


WRITE (6,61) L, J, NAMEN, Z,K, NAMEK 

61 FORMAT !6X, 13, 3X, 'TARGET DATE ',I3,1X,A6,' NO LATER THAN',F4.0, 

•* ' YEARS BEFORE ',13, IX, A6) 

GO TO 200 

64 z - A8S (Z) 

WRITE (6,65) L.J, NAMEN, Z,K, NAMEK 

65 FORMAT ( 6X, 13 , 3X, ' TARGET DATE • , 1*3, 1 X, A6, ' NO LATER THAN* ,F4.0, 

* ' YEARS AFTER ',I3,1X,A6I 

GO TO 200 

70 WRITE (6,71) L.J, NAMEN, Z 

71 FORMAT I6X,I3,3X, 'TARGET DATE *,I3,1X,A6,' NO LATER THAN',F6.0) 

GO TO 200 

80 IFIJ.LE.NMIS £ NSPR) WRITE (6,81) L,J, NAMEN 

81 FORMAT <6X,I3,3X,I3,1X,A6,' FIXED') 

IF1J.GT.NMIS 6 NSPR) WRITEI6.82) L,J 

82 FORMAT (6X.I3.3X, 'PROGRAM DEV ', 13,' FIXED') 

. GO TO 200 

90 WRITE (6,91) L.J, NAMEN, Z 

91 FORMAT (6X, 13, 3X, 'START ',I3,IX,A6,' NO EARLIER THAN',F6.0) 

GO TO 200 

100 WRITE (6,101) L.J, NAMEN, Z 

101 FORMAT ( 6X , 1 3,3X t 1 T ARGET DATE ',I3,1X,A6,< NO EARLIER THAN *,F6.0) 

GO TO ZOO 

110 WRITE! 6,111) L.J.K, NAMEK 

111 FORMAT ( 6X, 1 3 ,3X , 'PROGRAM DEV ',13, ' COMPLETED BY FIRST LAUNCH 
10F PROGRAM ',I3,1X,A6) 

200 CONTINUE 
RETURN 
END 


****** FNU OF COMPILATION ****** 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - SIZE=( 126976, 2*576) DEFAULT OPTIONIS) USED 

IEWOOOO NAME HOX02LCIR) 

I EW0461 I BCDH= 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME ORIGIN LENGTH 


NAME LOCATION NAME LOCATION NAME LOCATION NAME 


LISTC OG ' 7B4 
SAV2 7BP FEO 
SAV3 1798 980 


LOCATION REFERS TO SYMBOL 


IN CONTROL SECTION 


370 

378 

ENTRY ADORESS 
TOTAL LENGTH 


SAV2 

IBCOM= 

00 

2118 


SAV2 

iUNRESOLVED 


«***M0X02LC NOW REPLACED IN DATA SET 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 
374 SAV3 SAV3 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


FORTRAN IV G LEVEL 1 MASTER (MAIN) 


DATE = 71084 16/06/46 


0001 

0002 

0003 

0004 

0005 


0006 

0007 

0008 

0009 

0010 


0011 

0012 


0013 


C SPACE PROGRAM ECONOMIC EVALUATION MODEL 
C COST UNCERTAINTIES ARE DISPLAYED OUANTITATIVELY 
C 

C A PROGRAM EITHER EOUALS A MISSION WITH LAUNCH SCHEDULE OR A 
C DEVELOPMENT OR SUSTAINING PROGRAM OR A MISC. PROGRAM 
C A MISSION MUST HAVE AT LEAST ONE AND NO MORE THAN 10 LAUNCH YEARS 
C 

DOUBLE PRECISION NAME 
LOGICAL SKIP, EXT, ACCL 
REAL NPERPD 
INTEGER PROG 

C CARDS 3,4, G5 ARE NOT NEEDED ON TSS 

I NTEGER*2 YDPL,NSYR,NSFX,NRFX,NYRSST,NSTRFX,NPROG,KPROG,KODE, 

1 NYRSFX,KODEM,KODESP,VEH,NMULT,NONREC,NYD, IS,MAT,LYR,LETT,LYD, 

2' MIN, FINISH, NSTG,NFML ,NFMU ,KODS , MAS , L ABS * LABF, LAB I ,LTR,NU*N8Y, 

3 MODE, NOB, LSA,NYS,KODEF,LST,MST, 1ST, JST,KST,NVS,MRV,NRP, 

4 NYP,KnoEP,IVEHA,NTRIP,NPLS,NRR,MR,NPSTG,NPAD,NPFAH,NFS,NPINTL, 

5 NPINTU,MAPS,MAPF,MAPI ,KODEV,MAF,MAIC 
COMMON/SAVER/ RFIXO C 12,84 ) 

COMMON/SAVOMP/ NFAM.KFL AG,FAHI 30) , KODEF 1 30 ) ,FMNR 1 30 » , FHSUS 1 30 1 , 
1JSTI30) , YDF (30) ,LSA< 40) ,SNRI40) ,NYS( 40) , DINT (40 ) ,SINT1 40) ,KST(40>, 

2 YDII 40 1, YDS! 40) ,ISTI40> ,FMSLS 1 30 , 21 ,SUSL5I40,2 ) , S INTLS 140,2 1 , 

3 LST(30,5),YDPF(30,5) ,MST ( 30, 10 ) , YDPS 1 30 , 10 ) 

COMMON/ SAVSAR/ POJI 3) ,SRJI 3,3) ,NUI 40) ,NBYI 40) ,N0B(40) .RINTI40) , 

1 PLCINT 140) .XLTI40), PLCTI40) ,UPPI 40) ,TATI 40 ) ,TAHT 150 ) ,SR (40 ,3 > , 

2 M0DE(40,3),PLCI40,3) 

COMMON/SAVE 1/ F I N I SH ,NSTG,NCI , ILY ,LABF 1 30) ,L ABS 1 40) , LAB 1 1 40) , 

1 NFML140) ,NFMU(40> ,KODS I 40) ,STS (41 ) ,STG(40) ,VLR( 50 ) , WPR( 50) , 

2 RPLM(SO) ,MASI40,3) , RX0(12,50) • - 

C0MM0N/SAV2/EXT.ACCL,KNSTG,KNFAM,KNCI,KNP,KNHIS,JFLAG,TREF,NCSTR, 

1 PMAX,PMIN, ISTRT, 1FIN,MAX1TR,MITR,K0DESP( 6) , TITLE! 10) , LEVEL (20) , 

2 CNTRVL (20),FIXED(20) ,KODEM( 50) ,NSYR(50) ,NSFX(50) .NAME) 56), 

3 YDPLI56) , NRFXt 50) ,NYRSST ( 84 ) ,NSTRFX(84) ,NYRSFX(84) ,SUS(84) ,C(84) 
4, R ( 84 ) , S( 84 ) ,CS( 90 >, NPROG(90 ) ,KPROG( 90) , K0DEI90) 

COMMON/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MOS,NMIS,NSPR,NPERPD(30) , 

1 PAD ( 30 ) , LTR I 50) ,PLR(50),RDIST<56,4) , ALP I (4, 60) 

C0MM0N/SAV4/ MAF(30,3), MAIC(40,3), 

* NPADI2.60) ,NPFAM(30,5) .NPINTLI 30,5 ) .NPINTUI 30,5 I, 

1 NFS(40,4),NPSTG(30,10),MAPS(30,10) , MAP FI 30, 10), MAPI! 30 ,10), 

2 PFAMOI 30, 5,2 ) , PFAMS (30, 5, 2), PI NTS130, 5, 2), PSTGDI 30, 10, 2), 

3 PSTGS (30,10,2) 

CUMMON/SVACAV/ KNV,N0PT,KODEP( 30) ,RPL0{40) , I VEHAI 50) ,NTRIP(50), 

1 NPLSI 50) ,NRR( 50) ,HRI50) ,NVS( 60) ,MRV( 60 ) ,NRP( 60) ,B1 1 60) ,B2I60) , 
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FORTRAN 


0014 


0015 

0016 


00 1 7 

00 1 H 
0010 
0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

FORTRAN 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 
00 54 

0055 

0056 

0057 
00 58 

0059 

0060 
0061 
0062 
0063 


0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 
007 6 
0077 
007 B 

0079 

0080 
0081 
0082 

0083 

0084 

0085 


IV G LEVEL 1, MOD 4 MAIN DATE = 71084 16706/46 PAGE 00 

2 83(601 ,84(60) , KODEVC 601 ,NYP( 2,601 ,VMI2,60) 

COMMON/5 A VALL/LCK , SLO ,NM,NEXD, NV, NUMD,MYR5 ,LZ0PT(8) »NYD( 46 ) f MAT (46 
1) ,SUST(46) ,DSI46),LYD(46),YD(46), I S 1 1021 , LYR < 252 ) .LETT ( 250) , 

2 HIN(250).YRLM(250)fVEH{4t60) , NONRECt 120.20) .NMULT(60»50 ) 

COMMON/VARNCE/KSTAT . VAR I ( 401 , VARP ( 50 1 , VARHC 56) ,FMVAR(2,301 . 

1 FIVAR(3»40I,PLVAR(3,56),SVAR( 5.401 
COMMON/ SCRACH/M, N.NCS, PROG, IODD, I ERR, SKIP, MY FLAG, JS,NSCALE<5> , 

1 NSL( 10) .TOTAL I 20),W( 20>,DI 20),X0UT( 20) , VOUT ( 20) , RRR 1 201 .YEAR (201 
2, Y(20) ,KV£HI (50) , LABELt 50) , LVARY( 70) ,LVD( 70) , 1 VEH( 70) ,LVS( 70 ) , 

3 LVSFI80) , VNAM ( 80 ) ,N0P(86) ,RF( 86) , CF( 86) ,SF( 86) ,FLAGR( 86 ) , 

4 FLAGS (86) .NSSFI86) ,NSRF( 86) ,NSXF I 86) .NDSFI 86) , SUSTFt 861 .NLVPI86) 

5, NSTRRC ( 86 ) ,NYRSRC( 86 ) , LNDF186I , NSTRSTI 86 1 , LNDATE I 86) .NPROI90), 

6 KPRO190) ,CSX(90) ,LZ<46) iRCOSTt 60), KVEHI 60) , IMAGE) 830) , 

7 XSCH( 10,70) .XLVSOH( 20,50) ,RECUR( 20, 50) ,KOOX I 90 ) , LABN146) ,0M( 520) 

OIMFNSinN PRGLV14) 

data blank /ih / 

DAI A PRGLV /4HPR0G, 4HRAM , 4HLEVE, 4HL / 

STS ( 4 1 ) = BLANK 
LYRt 252 ) = 0 

9 FINISH = I 
KSTAT = 0 
JFLAG = 0 

DO 3 I = 1, 40 
DO 2 J = 1,3 
PIVARU.t) = 0.0 

2 SVAR ( J , I ) * 0.0 
VAR I ( I ) = 0.0 
SVAR ( 4 , 1 ) * 0.0 

3 SVAR (5,1) * 0.0 
DO 4 I - 1,30 
FMVARI 1,1) = 0.0 

4 FMVAR(2,I) = 0.0 
DO 5 i = 1,56 
VARM(I) = 0.0 

DO 5 J - 1,3 

5 PLVARI J, I ) » 0.0 
DO 6 I =■ 1,50 

6 VARF(I) = 0.0 

10 CALL ASIGNS 
IF(MYRS.EO.O) GO TO 99 
IF(MYRS.EQ.IOO) GO TO 9 
I FI FIN I SH.GT, 1 ) GO TO 12 
NNH = NHIS + 1 + NSPR 

IV G LEVEL 1, MOD 4 MAIN DATE - 71084 16/06/46 PAGE 00 

TREF = 1900.0 + TREF 
DO 8 I = 1,84 
8 RU) = 0.0 

12 DO 13 i = 1,70 
LVARY ( 11=0 
LVP(I) = 0 

DO 131 J = 1,10 

131 XSCH(J.I) = 0.0 

13 CONTINUE 

DO 132 I = 1,86 

132 NLVPI I) = 0 

DO 133 I = 1,50 

133 LABEL ( I ) = 0 

00 134 I = l.NMIS 

134 NYRSSTI I ) = 0 
NUMO = NUMD + N6XD 

00 14 I a 1, NUMD 

14 LA8NII) « 0 
C 

C CALCULATE VARIABLES FOR SMOOTH FROM MISSION DATA 
C 

M = 1 

DO 120 K = 1 ,NM 
IF(MIN(K).EO.O> GO TO 120 

1 a LYR(K) 

J = LETT ( K ) 

IF( J.EO.LETTIK-l) ) GO TO 105 
IF( F1NI SH.GT • 1 ) GO TO 104 
S(J) = 1SIJ) 

RIJ) = YOPLIJI 

104 LVARY ( J ) = M 

N5TRST ( J ) = INT(2.0*R( JJ/3.0 + .999) 

IFtRI Jl.EO.O) NSTRST(J)=1 
GO TO 10B 

105 LI = LVARY ( J) 

MO = M-l 

DO 106 L = LI, MO 
IF(HINIK) .NE.IVEHCL) ) GO TO 106 
Ml = L 
GO TO 110 

106 CONTINUE 

108 IVEH(M) = MINIK) 

LVSIM) = I - IS t J I + 1900 + ILY 
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FORTRAN IV G LEVSL 1, HUD 4 


MAIN 


DATE » 71084 


16/06/46 


PAGE 00 


0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0 105 
.0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 


0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 


FORTRAN 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 


0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 


NL VP t J 1 = NLVPIJ) ♦ 1 
HI = M 
M = M + 1 

110 M3 = I SC J I 

IF1SUSI JI.LE..001) GO TO 111 
NX = NYRSSTU) 

•M4 =• NSTRSTIJ) 

H5 = NSVRIJ1 

NYRSSTU) = MAX01NX,! - H4 - M3 + 1900 4- ILY ♦ M5 + II 

111 M2 = LVS(Mi) 

K 1 ='HIN!K) 

X = NMULTIK1.J) 

NDUM = I - M2 - M3 + 1900 + ILY + 1 
XSCH! NDUM ,M 1 ) » YRLM! K) *X 
NX = LVD(Hl) 

LVO(Ml) = HAXOI NX iNDUM) 

120 CONTINUE 
M = M - 1 
NCS = 0 
N = NMIS 

IF(NSPR.EO.O) GO TO 170 
DO 150 I = l.NSPR 
N = N + 1 

IFIFINISH.GT.l) GO TO 140 
SIN) ■ ISINI 
RIN1 = YDPLtNl 

140 NSTRST(N) = INT12 .0*R! N 1/3.0 ♦ .9991 
IFIR(N) .FQ.O) NSTRST(N) ** 1 
150 CONTINUE 
C 

C CONTINUE TO CALCULATE VARIABLES FOR SMOOTH USING DEV. AND SUST. COSTS 
C 

ICO IF(NUMD.EO.O) GO TO 260 

CALL UNPACK! LZ.LZOPT! 1) ,NUMD,5) 

DO 210 I = l.NUMD 
IF(LZm.EQ.O) GO TO 210 
N = N + 1 

NDUM = N - NMIS - NSPR 
LABELtNDUM) = I 
LABNI1 1 = N 
CIN) = DSC II 
NYRSFXfN) = 0 
L = HAT! I) 


IV G LEVEL 1, MOD 4 * MAIN 


DATE = 71084 16/06/46 PAGE 00 


IFIL.GT.IOOO) GO TO 206 
IFIL.LT.-100) NDUM = -L -100 
IF(L.LT.-IOO) J = LABI (NDUM) 

IFIL.LT.O. AND. L.GE. -1001 NDUM - -L 
I F( L • LT .0. AND.L.GE.— 100) J = LABE! NDUM) 

IFIL.GT.O) J = LA8S1L) 

1FIJ.E0.0) GO TO 206 
DO 205 K = 1,12 
' RFIXD(K.N) n RXD(K.J) 

205 CIN) = C!N> - RXD1K.J) 

NYRSFX ! N) = NSFXtJ) 

NSTRFX(N) = NRFX(J) 

206 NOUM = 1 + NMIS + NSPR 
SIN) = I S ! NDUM) 

R IN) = YD I I ) 

SUS(N) = SUSTII) 

NSTRST(N) = INT!2.0*R(NI/3.0 + .999) 

IF(RIN).EO.O) NSTRST !N ) a 1 

NYRSST(N) = LZ(I) - NYDII) + INT(YDIII) - NSTRST ( N) + 1 
IFISUStNI.LT. .0001) NYRSSTIN) = 0 

210 CONTINUE 
C 

C CALCULATE DEVELOPMENT CONSTRAINTS ON MISSION PROGRAMS 
DO 250 K = 1 ,NM 
IF(MINIK).EQ.O) GO TO 250 
J = LETT ( K) 

I F1NLVP ! J I .EO.l. AND. J.EQ. LETT { K— 1) ) GO TO 250 
IV = MIN! K ) 

DO 211 I = 1,10 
NDM » K - I 

IF! J.NE.LETTtNDH)) GO TO 215 
IF 1 IV.EO.MIN(NDM) ) GO TO 250 

211 CONTINUE 

215 X = LYR I K ) -LYRINDM+l) 

II = IV 

IF! LTR ( J ) .E0.2 ) II * IV * NV 
DO 220 K1 = 1,20 

IF ( NONREC II1,K1)« EO. 0 ) GO TO 250 
NO ■= NONREC! 1 1, K1 ) 

J1 = LABN(NO) 

NCS = NCS + 1 
NPROINCS) = J1 
CSX I NCS) = -1.0 -X 
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FORTRAN IV G LEVEL I, MOD A 


MAIN 


DATE - 71086 


16/06/66 


PAGE 00 


0167 

0168 

0169 

0170 
017,1 

0172 

0173 
0176 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 
0186 

0185 

0186 

0187 

0188 
0189 


0190 

0191 

0192 

0193 
0196 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 
0206 


FORTRAN IV 

0205 

0206 
.0207 

0208 

0209 

0210 
0211 
0212 
0213 
0216 

0215 

0216 

0217 

0218 
02.19 
0220 
0221 
0222 
0223 
0226 

0225 

0226 

0227 

0228 
D229 

0230 

0231 

0232 

0233 
0236 

0235 

0236 

0237 

0238 


IFICU11.LT. .00011 GO TO 216 
KPRO (NCSI = J 

KonxiNcsi = li 

GO TO 217 

216 IF1NCS.E0.11 GD TO 219 
NC5 = NCS - 1 
DO 218 I = 1 i NCS 
IF ! Jl.EO.NPRDt I 1 1 GOTO 220 

218 CONTINUE 

NCS = NCS + 1 

219 KPROINCSl = 0 
KODXINCS) = 8 

217 IF1NCS.GE.901 GO TO 255 

220 CONTINUE 
250 CONTINUE 

GO TO 260 
255 WRITE I 6. 1002) 

1002 FORMAT! 52HONUMBER OF DEVELOPMENT CONSTRAINTS HAS BEEN EXCEEDED) 
C 

260 CALL SM0THS1PRGLV, BLANK) 

C 

IF1M0S.EO.2.0R.H0S.EQ.3) GO TO 9 
IF1FINISH.EQ.HITR + l-AND.JFLAG.EO.il GO TO 601 
IFI FINISH. EO.HITR + l) GO TO 602 
IF1FINISH.E0.HITR) JFLAG = 1 
C 

C CALCULATE VARIABLES FOR ASSIGN FROM SMOOTH VARIABLES 
C 

MXRS = HYRS 

00 300 K = l.NM 

1 = LYR1K) 

J = -LETT(K) 

IF! J.EQ. LETT! K-l ) ) GO TO 305 
ISIJ) = SU) 

IX = ISIJ) + LNDATEl J 1 - 1900 - ILY 
IDIFF = IX - I 

305 IF nOIFF.EQ.O) GO TO 300 - 
HYRS = HAX01HYRS, IDIFF + I) 

LYR1K) = I + IDIFF 
300 CONTINUE 

HYRS = MINO (HYRS, 20) 

IF1N.E0.NHIS+NSPR) GO TO 10 
DO 350 I = NNH , N 


G LEVEL 1, HOD 6 MAIN DATE « 71086 16/06/66 PAGE 00 

NDUM = .1 - NMIS - NSPR 
J -■ LABEL INUUM) 

DS1J) = Clll 
L =' MAT! J) 

IF1L.GT.1000) GO TO 320 
IF! L.LT.-100) NOH = -L -100 
IF1L.LT. -100) J1 = LABI(NDH) 

IF! L.LT. 0. AND. L.GE.-100) NOM = -L 
IF(L.LT.O.AND.L.GE.-IOO) J1 = LA8FINDH) 

IF(L.GT.O) J1 = LABS (L ) 

IFIJ1.EQ.0I GO TO 320 
DO 310 K = 1,12 

310 OS(J) = 0SIJ1 + RFIXDl K, I ) 

NRFX1 J 1 1 * NSTRFXl I I 
320 SUSTt J) = SUS1 1 1 
YD I J I = RID 

NYD1J) = 1NT1S1I) + RID) - 1900 - ILY 
IF1NYD1 J1.LE.0I NY01J) = 1 
NDUH = J + NHIS + NSPR 
I SI NDUM 1 = SU) 

350 CONTINUE 

NUHD = NUHO - NEXO 
DO 369 1 = l.NUMD 

IF(LYDII).EO.HXRS) LYDI11 = HYRS 
369 CONTINUE 
GO TO 10 

601 WRITE16.5001 
GO TO 9 

602 WRITE16, 501 ) 

GO TO 9 

500 FORMAT 1 58H0HAX IHUH NUMBER OF ITERATIONS COMPLETED - END OF THIS C 
«ASE) 

501 FORMAT 1 65H00PT IHUM ASSIGNMENT WITHIN BUDGET CONSTRAINTS HAS BEEN 1 

l DETERMINED) 

99 STOP 
END 
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FORTRAN IV G LEVEL 1» MOD 4 


MAIN 


DATE * 71064 


16/06/46 


PAGE 00 


TOTAL MEMORY REQUIREMENTS 001914 BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 

VARIABLE OPTIONS USED - SIZE-I 126976,24576) DEFAULT OPTION(S) USEO 

IEWOOOO NAME M0X02MNIR) 

I EW0461 ASIGNS 
IEW0461 UNPACK 
IEW0461 IBCOM= 

I EW 0461 SMOTHS 
IEW0461 MAXO 
I EH 0461 HINO 


MODULE MAP 


CONTROL SECTION ENTRY 

NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME 

MAIN 00 1914 

SAVER 1918 FCO 

SAVDMP 2808 14BC 

SAVSAR 3D98 A58 

SAVE 1 47F0 FC4 

SAV2 57B 8 FEO 

SAV3 6798 980 

SAV4 7118 3188 

SVACAV A2A0 ‘ B48 

SAVALL ADE8 3A1C 

VARNCE E808 ADC 

SCRACH P2E8 6A60 


ENTRY ADDRESS 00 

TOTAL LENGTH 15D48 

***»H0X02HN NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY ' 


.IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL HAS SPECIFIED. 
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FORTRAN IV G LEVEL I, MOD 4 


HATCH I 


DATE = 7 1084 


16/55/05 


RAGE 00 


0001 SUBROUTINE MATCH! 

C **»MATCH DECISION COSTS WITH EACH VEHICLE*** 

C 

0002 INTEGER*2 LS A.NYS .KOOEF, LST ,HST , 1ST , JST.KST , VEH ,NHULT .NONREC ,NYO, 

1 IS,MAT,LYR,L£TT,LYO,MIN,NPSTG,NPAO,NPFAM, NFS.NPINTL ,NP1NTU,MAPS, 

2 MAPF.HAPI , FIN1SH,NSTG,NFHL,NFMU,K0DS,MAS,LA8S,LABF,LABI ,MAIC,»AF 
C 

0003 COMMON/ SAVDMP/ NFAM,KFLAG,FAH[ 301 jKODEFI 30) ,FMNR(30I ,FMSUS(30)» 
1JSTI30) .YDFI30) ,LSA(40I ,SNR(40) ,NYS(40) ,DINT( 40) , S INT (40) ,KST(40), 

2 YD II 40) t YDS 1 40) , 1ST! 40) ,FMSLS( 30, 2 ) ,SUSLSI 40 , 2 ) ,SINTLSI40,2) , 

3 LST!30,5) , y6pF!30,5>,MSTC30, 10),YDPS( 30,10) 

0004 COMMON/ SAVE 1 / F IN I SH ,NSTG , NCI , ILY ,LABFi 30 ) , LABS ( 40 ) , LAB l ! 40 1 , 

1 NFMU401 ,NFMU( 40) , KOUS I 40) , STS 1 41 ) , STG I 40) , VLRI 50 ) , WPR( 50 ) , 

2 RPLM(50),MAS(40,3) , RXD(1?,50> 

0005 COMMON/ S A V3 /GRO, GUESS ,L P,NSC)L ,HSUL,NP,M()S ,NH1 S,NSPR,NPERPD(30I , 

1 PAD! 30 },L7R!50),PLRI 30) ,RDI ST ! 56,4 ) , ALP 1 1 4, 60) 

0006 C0MMUN/SAV4/ HAFI30.3), MAIC(40,3), 

* NPADt 2,60) ,NPFAH( 30,5) ,NPINTLI30,5) ,NPINTUI 30,5) , 

1 NFS(40,4),NPSTG(30, 10 ) ,HAPSI 30, 10) ,MAPF(30,10) ,MAPI ( 30, 10) , 

2 PFAMD(30,5,2) .PFAHSI 30,5 ,2) , PINTS! 30,5, 2) , PSTGDI 30,10, 2 ) , 

3 PSTGSI30, 10,2) 

0007 COMMON/ SAV ALL /LCK ,SLO, NM,N£XO, NV,NUMD,MYRS,LZOPT( 8) ,NYDI 46) ,HAT(46 
1) , SUSTI46),DS(46),LYDI46) ,YD(46) , IS 1 102) ,LYRI 252) , LETTC250) , 

2 MIN I 250) ,YRLHI250) ,VEH(4,60) ,NONRECI 120,20) ,NMULT( 60, 50) 

C 


0008 


IFILP.GE.2) WRITE! 6,251) 


0009 

4 

DO 66 I = 1,NV 


0010 


12 = I + NV 


0011 


JX = 0 


0012 


KX = 0 


0013 


DO 64 J = 1,20 


00 14 


NONREC! 12, J) * 0 


0015 

64 

NONREC! I » J I = 0 


0016 

25 

00 65 HS= 1,4 


0017 


K = VEHIMS.I) 


0018 


IFtK.EO.O) GO TO 66 


0019 


IF IMASIK.II .EO. 0) GO TO 

9050 

0020 


JX * JX + 1 


0021 


NONRECU , JX) * HASIK, 1) 


0022 


KX = KX + 1 


0023 


NONREC I I 2 , KX) = HAS ( K, 1 J 


00 24 


IFILP.GE.2I WRITE I 6,250} * 

I, MAS! K » 1 ) 

0025 


IF ( LP.GE. 2) WRITE! 6, 2501 

12, HAS ! K , 1 I 


FORTRAN IV G LEVEL 1, MOD 4 HATCH I DATE =■ 71084 16/55/05 PAGE pO 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 
00 39 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 


IF( JX.GT.20.0R.KX.GT.20) GO TO 93 

9050 IF(NP.EO.O) GO TO 63 

IF !MAS(K,2).E0.0> GO TO 9051 
DO 302 L = 1,JX 

IF(MASIK,2).E0.N0NREC(1 ,L) ) GOTO 9051 

302 CONTINUE 

JX = JX + 1 

NONREC I I , JX ) s= MAS I K ,2 ) 

IF I LP.GE.2 ) WRITE! 6, 250) X, HASIK,2) 

IF IJX.GT.20) GO TO 93 

9051 IF (MAS(K,3) . EO . 0) GO TO 9052 
DO 303 L = 1 , KX 

I Ft MAS ( K,3 ) .EQ .NONREC 1 1 2, L ) ) GO TO 9052 

303 CONTINUE 

KX — KX + X 

NONREC! 12 ,KX) = MAS! K, 3 ) 

IF ( LP.GE.2) WRITE ( 6, 250 ) 12, MAS(K,3) 

IF (KX.GT.20) GO TO 93 

9052 IF (NPADt 1, I ) .EO.O) GO TO 9053 
N 1 - NPADt 1,1) 

DO 9054 J = 1,10 

IF (NPSTGINl.J) .NE.K) GO TO 9054 
IF (MAPS!N1,J).E0.0) GO TO 9053 
DO 304 L = I,JX 

IF(MAPSIN1,J).E0. NONREC! I,U> GO TO 9053 

304 CONTINUE 

JX = JX +. 1 

NONREC(I.JX) * MAPS! N1 , J ) 

IF ( LP.GE.2) WRITE! 6,250) I, MAPS(Nl.J) 
IF (JX.GT.20) GO TO 93 
GO TO 9053 
9054 CONTINUE 

9053 IF INPA0I2, D.E0.01 GO TO 63 
N1 * NPADI 2,1) 

DO 9055 J = 1,10 
IF tNPSTG(NltJ).NE.K) GO TO 9055 
IF (MAPSINl.JI .EO.O) GO TO 63 
00 305 L » 1 ,KX 

IF(MAPS!N1,JJ .EQ.NGNRECf 1 2, L ) ) GO TO 63 

305 CONTINUE 

KX = KX + 1 

NONRECt 12 ,KX) = HAPStNl.J) 

IFILP.GE.2) WRITE! 6, 250) 12, HAPStNl.J) 
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FORTRAN IV G LEVEL 1, MOD 4 


HATCH l 


DATE =■ 71084 


16/55/05 


PAGE 00 


0069 


IF tKX.GT.20) GO TO 93 


00 70 


GO TO 63 


0071 

9055 

CONTINUE 



C 

*** P.ICK UP SHARED COSTS *** 

0072 

63 

1FINFAM.E0.0) GO TO 21 


0073 


DO 885 KY=1,4 


00 7 A 


KZ=NFS<K,KY) 


0075 


lFtKZ. EO.OJ GO TO 885 


0076 


IF (MAFtKZ, ll.EQ.O) GO TO 9056 


00 77 


DO 306 L = 1,JX ’ - 


0078 


IFtMAFtKZ, I) .EO.NONRECI I ,L>) GO TO 401 

0079 

306 

CONTINUE 


0080 


JX=JX+1 


0081 


NONRECt I, ’JX) = MAFtKZ, 1) 


0082 


IFfLP.GE.2J WRITE! 6* 250) I, 

MAF t KZ , 1 ) 

0083 

401 

DO 307 L = l.KX 


0084 


IFtMAFtKZ,! I .EO.NONRECI I2,L) ) 

GO TO 9056 

0085 

307 

CONTINUE 


0086 


KX.= KX + 1 


0087 


NONRECt I 2 ,KX) = MAF(KZ»1) 


0088 


1FILP.GE.2J WRITE(6,250) 12,. 

MAFtKZ , 1 J 

0089 


IFtJX.GT.20.0R.KX.GT.20J GO 

TO 93 

0090 

9056 

IFINP.EQ.O) "GO TO 885 


0091 


IF (MAF(KZ»2) • EQ . 0 J GO TO 9057 


0092 


DO 308 L = 1,JX 


009 3 


I F ( MAP f KZ , 2 J • EO.NONREC 1 1 , L ) ) 

GO TO 9057 

0094 

308 

CONTINUE 


0095 


JX = JX'+ 1 


0096 


NDNREC t I , JX J = MAFt KZ ,2 J 


0097 


IFILP.GE.2J WR ITE 1 6,250) I, 

MAFtKZ , 2 J 

0098 


IFtJX.GT.20t GO TO 93 


0099 

9057 

IF <MAF(KZ,3).E0.0) GO TO 9058 


0100 


DO 309 L * l.KX 


0101 


IFtHAFI KZ.3J.E0. NONRECt 12, U ) 

GO TO 9058 

0102 

309 

CONTINUE 


0103 


KX = KX + 1 


0104 


NONRECt 12 , KX ) = MAFtKZ,3» 


0105 


IF1LP.GE.2J WRITEI6,250J 12, 

MAFtKZ, 31 

0106 


IF (KX.GT120) GO TO 93 


0107 

9058 

IF (NPADI 1, I) .EQ.O) GO TO 9059 


0108 


N1 = NPADI 1, 11 


0109 


DO 9060 J a 1,5 


0110 


IF INPFAMtNl ,JJ . NE.KZ t GO TO 9060 
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0111 


IF (MAPF tNl, J J .EO.OJ GO TO 9059 

0112 


DO 310 L = 1,JX 

0113 


IFtMAPFINl.JJ.EO .NONRECt I ,L ) > GO TO 9059 

Oi 14 

310 

CONTINUE 

0115 


JX = JX + 1 

01 16 


NONRECt I, JX) = MAPFt N1 , J ) 

0117 


IFILP.GE.2) WRITE! 6, 250 J I, MAPFtNl , J) 

01 18 


IF tJX.GT.20) GO TO 93 

0119. 


GO TO 9059’ 

0120 

9060 

CONTINUE 

0121 

9059 

IF I NPADI 2, I ) .EQ.O) GO TO 885 

0122 


N 1 = NPADI 2 , I t 

0123' 


DO 9061 J = 1,5 

0124 


IF (NPFAMtNl,J) .NE.KZJ GO TO 9061 

0125. 


IF (MAPFtNl, J). EO.OJ GO TO 885 

0126’ 


DO 311 L = l.KX 

0127 


IFtMAPFtNl, JJ.EO. NONRECt 12, L) ) GO TO 885 

0128 

311 

CONTINUE 

0129 


KX = KX + 1 

0130 


NONRECt 12 ,KX> = MAPFtNl, J) 

0131 


IFILP.GE.2) WRITE! 6, 250) 12, MAPFtNl, J) 

0132 


IF (KX.GT.20) GO TO 93 

0133 


GO TO 885 

0134 

9061 

CONTINUE r . 

0135 

885 

CONTINUE 


C 

*** PICK UP INTEGRATION COSTS *** 

0136 

21 

IF ( MS. E0.4 ) GO TO 65 

0137 


IFtVEHIMS+l.D.EO.O) GO TO 65 

0138 


KL =VEH( MS+1 , I ) 

0139 


IFINCI. EO.OJ GO TO 9062 

0140 


DO 89 J=1,NCI 

0141 


DO 887 KY=1 ,4 

0142 


IFtNFMLIJl.NE.NFSIK.KYl) GO TO 887 

0143 


DO 886 KZ=1,4 

0144 


IFtNFMUt J) .EO.NFStKl.KZ) ) GO TO 888 

0145 

886 

CONTINUE 

0146 

887 

CONTINUE 

0147 


GO TO 89 

0148 

888 

IF tMAICf J.l) .EQ.O) GO TO 9063 

0149 


DO 312 L = 1,JX 

0150 


IF ( MAIC ( J, 1 ) .EO.NONRECI 1,0) GO TO 402 

0151 

312 

CONTINUE 

0152 


JX = JX + 1 
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0153 

0156 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 
0166 

0165 

0166 
0167 
0160 

0169 

0170 

0171 
017? 
0173 
0176 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 
0186 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
0196 
0195 


-URTHAN 


0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 
0206 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 
0216 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 


IV G LEVEL 1. HOD 6 HATCH! OATE ■= 71086 16/55/05 PAGE 00 

NONREC(I.JX) = MAlCtJ,l! 

IF1LP.GE.21 WRITEI6.250) I, MA1CIJ.1) 

602 DO 313 L = 1,KX 

IFlHAIClJ.il . EQ. NONREC! 12 ,L 1 ) GO TO 9063 
313 CONTINUE 

— kx + 1 

NONREC 1 1 2 i KX 1 = MAiCI J,l> 

IFILP.GE.21 WRITE 1 6,250) 12. MAICU.l) 

IF 1 JX.GT • 20. OR . KX.GT .201 GO TO 93 
9063 IF1NP.E0.01 GO TO 89 

IF 1 MA IC 1 J i 2 1 • EO. 0) GO TO 9066 
DO 316 L * l.JX 

lFtMAIt(J,2).E0.NDNRECII,L>) GO TO 9066 
316 CONTINUE 

JX = JX + l 

NIJNRECl I.JXl r MA 1 C 1 J » 2 l 

1F1LP.GF.21 WRJTE1 6.2501 1, HAICIJ.2) 

1 FI JX.GT .201 GO TO 93 
9066 IF IMAiri J.31 .E0.01 GO TO 09 
DO 315 L = l.KX 

IF! HAICl J.3 1 .EO. NONREC I 12.L 1 > GO TO 89 

315 CONTINUE 

XX = KX + 1 

NONREC! 12 ,KX 1 = HA1C1J.31 
1F1LP.GE.21 HR ITEl 6.250) 12, NA1CIJ.3) 

IF (KX.GT. 20) GO TO 93 
89 CONTINUE 

9062 IF1NP.EO.O) GO TO 65 
00 9065 Ms 1,2 
IF 1 NPAD1H, | 1 . EQ . 0 1 GO TO 9065 
N1 = NPAD1H, I) 

DO 9066 J = 1,6 

IF 1NFSI K, J) .EO.O) GO TO 9065 

DO 9067 KY = 1,5 

1F1NPINTL1N1, KYI. EO.O) GO TO 9066 
IF (NPINTLlNl.KYl .NE.NFSIK, Jl) GO TO 9067 
DO 906R KZ = 1,6 

IF ,INPINTU!N1,KY> .EQ.NFS<K1,KZ>) GO TO 9069 

9068 CONTINUE 
GO TO 9067 

9069 IF (MAPItNl.KYI.EO.OI GO TO 9067 
IF (H.E0.2) GO TO 9070 

OD 316 L = l.JX 


IV G LEVEL 1, HOD 6 HATCH! DATE = 71086 16/55/05 PAGE 00 

IF1HAPI 1N1,KY) .EQ. NONREC 1 1 , L 1 1 GO TO 9067 

316 C0NT1NUF 

JX = JX * 1 

NONREC! I, JX) * MAPI 1 N1 ,KY 1 

IF1LP.GE.2) WRITE16.250) I, HAPIIN1.KY) 

IF (JX.GT. 201 GO TO 93 
GO TU 9067 

9070 DO 317 L = l.KX 

IF ( MAPI 1 N1 ,KY I .EO. NONREC 1 12, L) 1 GO TO 9067 

317 CONTINUE 

KX ~ KX + 1 

NONREC! 12 ,KX) = MARI INI , KY) 

IFILP.GE.2) WRI TE( 6, 250) 12, MAPI (Nl.KY) 

IF IKX.GT.20) GO TO 93 
9067 CONTINUE 
9066 CONTINUE 
9065 CONTINUE 

65 CONTINUE 

66 CONTINUE 
RETURN 

93 HR ITE 1 6, 2201 1 
KFLAG =1 
99 RETURN 

220 FORMAT (65H0EXC6EDED 20 NON-RECURRING COSTS FOR VEHICLE,I6) 

250 FORMAT ITS, 16X, 16) 

251 FORMAT 1 8H1 VEHICLE, 10X, 15HDECI SION NUMBER) 

END 
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FORTRAN IV G LEVEL 1, MOD A 


HATCH I 


DATE = 7X08A 


■ 16/55/05 


.PAGE 00 


TOTAL MEMORY REQUIREMENTS 0019SA BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L 1ST, NCAL,MAP 

VARIABLE OPTIONS USED - SIZE*! 126976»2A576 > DEFAULT OPTION(S) USED 

I EH 0000 NAME MOX02MH(R) - - 

I EW0A61 IBCQM= 


MODULE MAP 


CONTROL 

SECTION 


ENTRY 





NAHE 

ORIGIN 

uENGTH 

NAME 

LOCATION 

NAHE LOCATION 

NAHE 

LOCATION 

MATCH I 

00 

198 A 






SAVDMP 

1988 

1ABC 






SAVE 1 

2EA8 

FCA 






SAV3 

3E10 

9EA 






SAVA 

A7F8 

3188 






SAVALL 

7980 

3A1C 







NAME 


ENTRY ADDRESS 00 

TOTAL LENGTH B3A0 

****M0X02HH NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


I EH0A61 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL HAS SPECIFIED. 
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(17) 


OS/360 FORTRAN H 


DATE" 71.0B6/16.09.56 


COMPILER OPTIONS - NAME= MAIN,OPT=02,LINECNT=66, SOURCE, BCD, NOLIST, NODECK, LOAD, NOHAP, NOEDIT, ID.NO 
ISN 0002 SUBROUTINE MATE I 

C DETERMINE IF VARIOUS STAGE COMBINATIONS MAKE A FEASIBLE VEHICLE 


ISN 0003 
ISN 0009 

ISN 0005 
ISN 0006 
ISN 0007 
ISN 0008 


ISN 0009 
ISN 0010 
ISN 0011 
ISN 0012 
ISN 0013 
ISN 0016 
ISN 0015 
ISN 0016 
ISN 0017 
ISN 0018 
ISN 0019 
ISN 00 20 
ISN 0021 
ISN 0022 
ISN 0026 
ISN 0025 
ISN 0027 
ISN 0029 
ISN 0031 
ISN 0033 
ISN 0036 


REAL ISP. ISPA, LENT 

INTEGERS FINISH.NSTG.NFML ,NFMU,KODS, MAS, LABS, LABF, LABI, VEH.NYO, 

1 NMULT.NONREC, I S ,MAT, LYR, L ETT ,L YD,MIN ,NVS ,MRV ,NRP ,NYP ,KDDEP, 

2 I VEHA ,NTRI P ,NPLS,NRR »MR, KODEV 

CC1MM0N/SAVALL/LCK,SLU,NM,NEXD,NV,NUM0,HYRS,LZ0PT(8) ,NY0(66),HATI66 
1 ),SUSTI66) ,DSI66),LY0(66),YD(66) , IS! 102 1 , LYR t 252 ) .LETT! 250 ) , 

2 MINI 250) .YRLMI250) ,VEH( 6,60), NONRECI 120,20) ,NMULT( 60, 50) 

COMMON/ SAVE 1/ FINISH, NSTG, NCI, I LY.LABF ( 30) ,LA8S(60) ,LA8I 160), 

1 NFMLI60) ,NFMU(60),K00S(60) , STS 161) ,STG(60) ,VLR(50) ,WPR( 50) , 

2 RPLMI50) ,MASI60,3) , RXD(12,50) 

COMMON/SVACAV/ KNV,N0PT,K0DEP|30) ,RPLO( 60) , IVEHA150) ,NTRIPI50) , 

1 NPLSf 50),NRRI50) , MR! 50) »NVSt 60) ,MRVI 60) ,NRP(60) ,81 ( 60) ,82(60), 

2 B3 1 60 1 , B6 ( 60 ) , KODEV 1 60 ) ,NYP I 2, 60) ,VM( 2,60) 

COMMON/ SCR ACH/ 1 P, I V, IGtNPAXl 2 1 ,NEH( 6) , NST( 61 1 , THRU 61 ),0IAM(61), 

1 TSL(61),LENT(61) ,WTFU(41 1 ,HTIN( 61 ) , ISP141 ) ,MZ( 50) ,LZ(50) , 

2 HINT 1 3, 60) , KX ,NX,HGHT ( 60 1 , WF( 6) , WT(6) ,ISPA(6I , 

3 THUTI6) ,PRT(60) ,M, VDES ,HPL , PR ,K1 , 1 ERR ,DUM( 6067) 

DATA PI ,N,VREF,CLl/3. 16 16, 2, 2 5573,, 28,5/ 

NV1 = NV £ 1 
DO 36 I = NV1.60 
VEHI 1 , I ) =0 
00 36 J=l,3 
VEHI JC1, I >=0 
36 HINTIJ,I)=0.0 
NX = 0 
IMAX=0 
JMAX=0 
KMAX=0 
LMAX-0 

DO 35 1=1, NSTG 
IFINSTC! I.EO.O) GO TO 36 
33 HGHT ( I ) =WTFUt I ) GWTINI I ) 

IFINSTI I I.EO.l) IMAX-I 
IFINSTII 1 .£0.2) JMAX=I 
IFINSTI I >.E0.3> KMAX=I 
IFINSTI I). E0.6) LMAX= I 

35 CONTINUE 

36 IF! IMAX.EO.O) GO TO 600 


I SN’ 0036 
ISN 0038 
ISN 0060 
ISN 0062 
ISN 0063 
ISN 0066 
ISN 0065 
ISN 0066 
ISN 0067. 
ISN 0068 
ISN 0069 
ISN 0050 
ISN 0051 

ISN 0052 
ISN 0056 
ISN 0056 
ISN 0058 
ISN 0060 
ISN 0061 
ISN 0062 
ISN 0063 
ISN 0066 
ISN 0065 
ISN 0066 
ISN 0067 
ISN 0068 
ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0076 
ISN 0075 
ISN 0076 

ISN 00 77 

ISN 0078 
ISN 0080 
ISN 0082 
ISN 0083 


C 


C 


JFI JMAX.EO.O) JMAX=IMAX 

1FIKMAX.E0.O) KMAX=JMAX 

IF(LMAX.EQ.O) LMAX=KHAX 

JM1MMAXE1 

1M1= JMAXG 1 

DO 500 1=1,1 MAX 

K 1 = I 

WF I 1 ) =WTFUl 1 1 
HTI 1)=WTIN< I ) 

ISPAI 1 1 = I SP ( I > 

THUTI 1)=THRT< I) 

DO 600 J= IH1, KMAX 

W1NX=PI*(0IAM(1 )£OIAM(J) )*(SQRT(1L£NT( J})*»2£( (DIAH( I)-OIAH(J) I* 
1 0.5)**2))*5.0*0.5 

IF I THRT 1 1 ) • LT .1.2* (HGHT 1 1 )£HGHTt J I EWINX ) ) GO TO 600 
IF ITHRT(I).GT.3.5*tWGHT(I)£WGHTtJ)GHINX)J GO TO 600 
IF (DIAMIJ).GT.1.2*DIAM(I)) GO TO 600 
IF (OIAMI I) .GT,3.5*DIAH( J) ) GO TO 600 
HFI2)=WTFU( J) 

WT I 2 ) =WTIN{ J ) 

I SPA ( 2 ) =1 SP( J ) 

THUTI 2)=THRT(J) 

M=0 
PR = 0. 

VDES=0. 

CALL PERFKCLI,N,VREF) 

IF { IERR.NE.O) GO TO 60 
NX = NX £ I 
KX = NV £ NX 
NU= J 

VEH( 1,KX)=I 
VEHI 2 ,KX ) = J 
HINT! 1 ,KX ) =W INX 
PRT I KX ) =H PL 

CALL HISMT1 

I F I KX.EO. 100) GO TO 60 
lFtKX.GE.60) GO TO 600 
60 DO 300 K= IM I , LMAX 

HINY=PI*(OIAM( J)£OIAM(K))*( SORT! (LENT! K) l**2£( (DIAH(J)-DIAM(K) ) 

1 *0. 5 )**2 ) 1*5. 0*0. 5 
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ISN 008*' 
ISN 0086 
ISN 0088 
ISN 0090 
ISN 0092 
ISN 009* 
ISN 0096 
ISN 0097 
ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 
ISN 0102 
ISN 0103 
ISN 010* 
ISN 0106 
ISN 0107 
ISN 0108 
ISN 0109 
ISN 0110 
ISN 0111 
ISN 0112 
ISN 0113 

ISN Oil* 

ISN 0115 
ISN 0117 
ISN- 0119 
ISN 0121 
ISN 0122 
ISN 012* 

ISN 0125 
ISN 0127 
ISN 0129 
ISN 0131 
ISN 0133 

ISN 0135 

ISN 0137 


IF ITHRTI J).LT.0.37*tHGHTtJ)EWGHTtK>SWINY)) GO TO 300 
IF tTHRT(J).GT.1.25*tHGHTlJ)£HGKTtK>CWINY)) GO TO 300 
I F' ( THRTI I ) • LT. 1. 2*(WGHT ( 1 JEWGHTt J ) CWGHTt K ) EWINXEWINY 1 1 GO TO 300 
IF ( THRT I I) .GT.3.0*IWGHTI I ) GWGHT I J ) SWGHTIK ) EWINXEWINY) 1 GO TO 300 
IF IDIAH(K) .GT.1.2*DIAHt J)) GO TO 300 . 

IF tDIAMt J).GT.3.5*DIAMIK)) GO TO 300 
WF 1 31 =WTFUt K) 

WT ( 3 ) =WT IN I K 1 
ISPAt3)=ISPtK> 

THUTI 3I=THRTIK) 

H=1 . 

PR=0. 

VDES = 0. . 

CALL PERFI (CL1 ,N,VREF 1 

IF tlERR.NE.01 GO TO 70 

NX = NX £ 1 

KX = NV £ NX 

V6H( 1 *KX 1 = I 

VEHt 2 1 KX 1 - J 

VEH(3.KX)=K 

WINTt 1 1 KX 1 =H INX 

W I NT ( 2 . KX I =W I NY 

PRTI KX) =HPL 


CALL HISHTI 

1 F t KX.EO. 100) GO TO 69 
IFIKX.GE.601 GO TO 600 

69 IF(K.GT.KHAX) GO TO 300 

70 00 200 L=JK1,LHAX 

VUNZ = P < I*tUI AH( K) GDI AMID 1 *t SORT I I LENT I L 1 1 **2Et f 01 AH IK 1-01 AH (L) 1 

1 *0.51**211*5.0*0.5 

IF I THRTIK) .LT.0.30*tWGHTl K1EWGHTI L) EW1NZ I ) GO TO 200 
IFtTHRTIKl.GT. 1.25*tWGHTt K 1 EWGHTt L16WIN2) 1 GO TO 200 
IFtTHRT(J).LT.0.32*(WGHT I J16HGHT IK 1 CWGHTt L> CWINYCWINZ) ) GO- JO 200 
IFtTHRTIKl.GT. 1.50*(HGHT( J ) CWGHTt K > EWGHTt DEWINYEWINZ ) I GO TO 200 
IFt THRT.t 1 1 ,LT.1.20*(HGHT( 1 ) EWGHT tj > EWGHTIK > EWGHTt U EWINXEHINYEWINZ 

1 IFt THRT ( 1 1 .GT.3.00*(WGHTt 1 1 CHGHTtJ) CWGHTt K) EWGHTt L) £WINX£WINY£WINZ 
1 1) GO TO 200 

IFIDIAHtLl.GT .1.2*0 I AH(K) ) GO TO 200 


ISN 0139- 


IFtDIAMt K) .GT .*.0*DIAM( LI ! 

ISN 01*1 


WF(*)=WTFUtL) 

ISN 01*2 


WT! * 1 =WT INI L 1 

ISN 01*3 •' 


I SPAt * 1 = 1 SPt L 1 

ISN 01** 


THUT ( * ) = THRT t L) 

ISN 01*5 


M = 2 

ISN 01*6 


PR = 0 * 

ISN 01*7 


VD€S=0. 

ISN 01*8- 


CALL PERFI tCLI tN.VREF) 

ISN 01*9 


I Ft IERR.NE.O) GD TO 200 

ISN 0151 


NX = NX £ 1 

ISN 0152 


KX = NV C NX 

ISN 0153 


VEHt 1,KX)=1 

ISN .015* ' 


VEH12,KX)=J 

ISN 0155 


VEH(3.KX)=K 

ISN 0156 


VEHt * . KX 1 = L 

ISN 0157 


WINTt 1,KX)=WINX 

ISN 0158 


W INT t 2 »KX 1 =W INY 

ISN 0159 


W I NT t 3 j KX 1 =W I NZ 

ISN 0160 

r 

PRT(KX)=WPL 

ISN 0161 

Is 

f 

CALL MISMTl 

ISN 0162 


I F ( KX.EO. 100) GO TO 200 

ISN 016* 


IFtKX.GE.60) GO TO 600 

ISN 0166 


200 CONTINUE 

ISN 0167 . 


300 CONTINUE 

ISN 0168 


*G0 CONTINUE 

ISN 0169 


500 CONTINUE 

ISN 0170 


600 NV = NV £ NX 

ISN 0171 


RETURN 

ISN 0172 


END 

****** end of 

COMPILATION ****** 
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F8B-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED UST.XREF, HAP, NCAL 

VARIABLE OPTIONS USED - S IZE=< 12 6976,24 576 1 DEFAULT OPTIONISI USED 

IEWOOOO NAME MDX02ME(R) 

IEW0461 PERFI 
IEW0461 SORT 
IEW0461 MISHTI 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

length 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

MAT El 

00 

A68 








SAVALL 

A68 

3 A1C 








SAVE1 

4488 

FC4 








SVACAV 

5450 

B48 








SCRACH 

5F98 

6 A 60 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS' TO SYMBOL 

IN CONTROL SECTION 

140 

SAVALL 

SAVALL 

144 

SAVALL 

SAVALL 

148 

SAVE1 

SAVEl 

14C 

. SVACAV 

SVACAV 

150 

SCRACH 

SCRACH 

154 

PERFI 

AUNRESDLVED 

158 

SORT 

tUNRESOLVEO 

15C 

MISHTI 

SUNRESOLVED 

ENTRY ADDRESS 

00 





TOTAL LENGTH 

C9F8 






****M0X02ME NOW REPLACED IN DATA SET 


DIAGNOSTIC HESSAGE DIRECTORY 


IEH0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


1 17) 


OS/ 360 FORTRAN H 


DATE 71.084/16.10.37 


COMPILER OPTIONS - NAME= MA IN, DPT=02» L INECNT=44, SOURCE , BCD, NOL 1ST , NODECK, LOAD, NOHAP, NOEOIT , ID, NO 


ISN 

0002 

C 

r 

SUBROUTINE MEAN I PI «KSTAT , SIGS 
FROM MODAL VALUE AND X PERCENT TAI 

ISN 

0003 


KSTAT = 1 

ISN 

0004 


P * 1.0 - PI 

ISN 

0005 


CALL NDTRI (P,Y,C, IE) 

ISN 

0006 


SIGS = -.5*Y C .5*SQRT( Y*Y C 4, 

ISN 

00 07 


SIGS = SIGS*SIGS 

ISN 

0008 


SY = $Y*EXP( 1.5*SIGS) 

ISN 

0009 


RETURN 

ISN 

00 10 


END 

****** 

ENO OF 

COMPILATION ****** 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST,XREF,MAP,NCAL 

VARIABLE OPTIONS USED - SIZE*! 126976,24576) DEFAULT OPTIONIS) USEO 

1EWOOOO NAME HOX02EX(R» 

IEW0461 NDTRI 
IEW0461 EXP 
IEW0461 SORT 
IEW0461 ALOG 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

MEAN 

00 

226 





LOCATION 

REFERS 

TO SYH80L 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYHBOL 

IN CONTROL SECTION 

D8 


NDTRI 

SUNRESOLVEO 

OC 

EXP 

SUNRESOLVEO 

EO 


SORT 

SUNRESOLVEO 

E4 

ALOG 

SUNRESOLVEO 

ENTRY ADDRESS 

.00 





TOTAL LENGTH 

228 





****M0X02EX 

NOW 1 

REPLACED IN 

DATA SET 





DIAGNOSTIC MESSAGE DIRECTORY 


I6W0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL MAS SPECIFIED. 


I 17) OS/360 FORTRAN H DATE 71.084/16.11.06 

COMPILER OPTIONS - NAME= MAIN, OP T=02, LINECNT=44, SOURCE , BCD, NOL 1ST , NODECK, LOAD, NOMAP, NOEDIT, ID, NO 


ISN 

0002 

C 

SUBROUTINE MISMTI 

DETERMINE PERFORMANCE OF NEW VEHICLE IN TERMS OF MISSION MODEL INPUT 

ISN 

0003 


REAL LENT, ISP, ISPA.NPERPD 

ISN 

0004 

f 

INTEGER *2 VEH.NMULT, NDNREC , NYD, IS , MAT, L YR , LETT ,LYD,M IN, LTR,N VS, 

1 MRV ,NRP,NYP,KODEP , I VEHA ,NTR IP ,NPLS ,NRR ,MR ,KOD£V,F 1NISH.NSTG, 

2 NFML,NFMU,K0DS,MAS,LABS,LABF,LA8I 

ISN 

0005 

L 

COMMON/SAVE 1/ FINISH, NSTG,NCI , I LY, LABF ( 30 > , L ABS < 401 , L AB 1140 1 , 

1 NFML(40!,NFHU(40> , K0DS1 40) , STS 1 41 ) ,STG(40) ,VLR(50) ,WPR<50> , 

2 RPLHC50I ,MASt 40 , 3 ) , RX0tl2,50) 

ISN 

0006 


COMM ON/ S VAC A V/ KNV ,NOPT, KODEPI 30) ,RPL0I 40) , I VEHAI 50) .NTRIPI50) , 

1 NPLS(50),NRR(50) ,HRl 50) ,NVSt 60) ,MRV( 60) ,NRP{60) ,81160) ,B2f60>, 

2 B3(60), 84(601 ,K0DEV160) ,NYP(2,60) ,VM{2,60) 

ISN 

0007 


COMMON/SAV3/GRO,GUESS,LP,NSOL,HSOL,NP,MOS,NHIS,NSPR,NPERPD(30), 
1 P ADI 30) .LTRI50) , PLR( 50 ) ,RDIST ( 56,4) , ALPH4 , 60 ) 

ISN 

0008 


COMMON/SAVALL/LCK,SLO,NM,NEXD,NV,NUMD,MYRS,LZOPT(8) ,NYD(46),HATI46 
l) ,SUST(46> , DS (46) , LYO (46 ) ,YDI46) ,IS( 102 ) ,LYR( 252 ), LETT ( 250) , 

2 MINI 2501, YRLMI 250) ,VEHI4,60) .NONRECt 120,20) .NMULTI 60 , 50 ) 

ISN 

0009 


COMMON/ SCRACH/ IP, I V , I G,NP AXI 2 ) ,NEH( 4) ,NSTI41) »THRT( 41 ) ,01 AM (41 ) , 

1 TSL 141 ) , LENT I41),WTFU(41),WTIN(41),ISP(41),HZI50),LZI50), 

2 WINTI 3,60I,KX,NX,WGHT(40) ,WF(4) ,WT 1 4) , I SPA t 4) , 

3 THUT (4),PRTI60),H, VDES,H PL,PR,K1,IERR, DUMI 6067) 

ISN 

0010 

c 

DATA VREF,CLI/25573.,28.5/ 

ISN 

0011 

1, 

CF 1*0 • 

ISN 

0012 


KNS * I 

ISN 

0013 


IFINV.EO.O) GO TO 101 

TSN 

0015 


DO 100 M J= 1 , NV 

ISN 

0016 


IFIVEH(l,KX).NE.VEHll,MJ)) GO TO 100 

ISN 

0018 


IF(VEH(2,KX).NE.VEHI2,HJ)) GO TO 100 

ISN 

0020 


1FIVEHI3,KX1.NE.VEH(3,HJ>) GO TO 20 

ISN 

0022 


IF(VEH(4,KX) .NE.VEHI 4, MJ) ) GO TO 30 

ISN 

0024 


KX = 100 

ISN 

00 25 


NX = NX - 1 

ISN 

0026 


RETURN 

ISN 

00 27 


20 IFIVEH(3,MJ).NE.O) GO TO 100 

ISN 

0029 


IFIKNS.E0.3) GO TO 100 

ISN 

0031 


CF1 * EXP 1 Bll MJ ) ) 

ISN 

0032 


KNS = 2 

ISN 

0033 


GO TO 100 

ISN 

0034 


30 IF(VEHI4,MJ) .NE.O) GO TO 100 

ISN 

0036 


CF1 * EXPIBKMJ)) 
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ISN 0037 KNS = 3 

ISN 0038 100 CONTINUE 

ISN 0039 10 L GO TO ( 200, 300.40D) , KNS 

ISN 0040 200 M=0 

ISN 0041 N=2 

ISN 0042 IFIVEH(3,KX).NE.0> N=3 

ISN 0044 I F C VEHI4.KXI .NE.OI N=4 

ISN 0046 GO TO 500 

ISN 0047 300 N*2 

ISN 0048 M= 1 

ISN 0049 1FIVEH(4,KX).NE*0) M = 2 

ISN 0051 GO TO 500 

ISN 0052 400 N=3 

ISN 0053 H= I 

ISN 0054 £00 K 1 =VEH( 1 , KX I 

ISN 0055 DO 501 1=1,4 

ISN 0056 IFfVEHU .KXI.EO.O) GO TO 502 

ISN 0058 K=VEHI t,KX» 

ISN 0059 HF( 1 1=WTFU(K) 

ISN 0060 WTU )=WT INI K I 

ISN 0061 I SPA( 1 1 = I SP( K) 

ISN 0062 THUTII )=THRT(KI 

ISN 0063 501 CONTINUE 

ISN 0064 502 00 503 I=l,Nrt!S 

ISN 0065 LZtll = 0 

ISN 0066 PR=CF1 

ISN 0067 VOES=VLRII> 

ISN 0068 CALL PERF I ( CLI ,N , VREF I 

ISN 0069 IFIWPL.GT.WPRI II .AND.IERR.EQ.O) LZ(I) « 1 

ISN 0071 503 CONTINUE 

ISN 0072 CALL PACK! LZ, VMI 1, KX I ,NHIS, 1 ) 

ISN 0073 RETURN 

ISN 0074 END 

****** END UF COMPILATION ****** 


F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - SIZE=U26976, 24576) DEFAULT OPTION(S) USED 

I EH 0000 NAME M0X02MIIR) 

IEW0461 PACK 
IEW0461 PERF l 
IEW0461 EXP 






CROSS REFERENCE TABLE 




CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION NAME LOCATION 

NAME 

LOCATION 

NAHE 

HISMTI 

SAVE1 

SVACA V 

SAV3 

SAVALL 

SCRACH 

00 

468 

1430 

1F78 

28F8 

6318 

466 

FC4 

B48 

980 

3A1C 

6A60 


• 





LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


108 

SAVE 1 

SAVE1 

IOC 

SVACAV 

SVACAV 

110 

SAV3 

SAV3 

114 

SAVALL 

SAVALL 

118 

SAVALL 

SAVALL 

11C 

SCRACH 

SCRACH 

120 

PACK 

tUNRESOLVED 

124 

PERF I 

tUNRESOLVED 

128 

EXP 

SUNRESOLVED 

98 

SCRACH 

SCRACH 

AO 

SAV3 

SAV3 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

C078 






****M0X02MI NOW REPLACED IN OATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

IEW0461 WARNING - SYMBOL PRINTEO IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


D-47 


117) OS/ 360 FORTRAN H 


DATE 71.084/16.11.38 


COMPILER OPTIDNS - NAMF= MAIN, 0PT=02 , LINECNT = 44,S0URCE ,BC0»N0LIST,N0DECK, LOAD.NOMAP, I 
ISN 0002 SUBROUTINE NDTR(X»P»D) 

C 

C THIS SUBROUTINE COMPUTES Y = PtX) = PROB THAT THE RANDOM VARIABLE U, 

C DISTRIBUTED NORHALLYIO.l > IS LESS THAN OR EOUAL TO X,. FIX) - THE 
C ORDINATE OF THE NORMAL DENSITY AT X. IS ALSO COMPUTED. 

C DESCRIPTION OF PARAMETERS X INPUT SCALAR FOR WHICH PtX) IS COMPUTED 

C P - - OUTPUT PROBABILITY, D OUTPUT DENSITY, 

C METHOD BASED ON APPROX IN C. HASTINGS, APPROXIMATION FOR DIGITAL 

C COMPUTERS, PRINCETON UNIV. PRESS, PRINCETON, N. J. , 1955. SEE EON. 26.2.17, 

C HANDBOOK OF MATHEMATICAL FUNCTIONS, ABRAMOWITZ AND STEGUN, DOVER PUBL., INC. 
C 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 

ISN 0007 
ISN 0008 
ISN 0009 
ISN 0010 


AX = ABSIX) 

T = 1.0/11.0 C *23164 19*AX ) 

D = 0.3989423*EXP<-X*X/2.0) 

P = 1.0 - 0*T*[((tl.330274*T- - 1.821256)*T C1.781478)*T 
* -0.3565638>*T S .03193815) 

IFIX) 1,'2,2 

1 P = 1.0 - P 

2 RETURN 
END 


****** END OF COMPILATION ****** 


F88-LEVEL .LINKAGE EDITOR' OPTIONS SPECIFIED LIST, XREF, MAP, NCAL 

VARIABLE OPTIONS USED - S1ZE = U26976, 24576) DEFAULT OPTIONIS) USED 

IEHOOOO ' NAME MOX02NRI R ) 

IEW0461 EXP 


CROSS REFERENCE TABLE 

CONTROL SECTION 

NAME ORIGIN LENGTH 

NDTR 00 1DC 

LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL 

C8- EXP SUNRESOLVED 

ENTRY ADDRESS 00 

TOTAL .LENGTH 1E0 

****M0X02NR NOW REPLACED IN DATA SET 

DIAGNOSTIC MESSAGE DIRECTORY 

1EM0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION 


, ID, NO 


NAHE 


SECTION 
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(171 


□S/360 FORTRAN H 


DATE 71.084/16.12.08 


COMPILER OPTIONS - NAME* MAIN, 0PT=02, LINECNT=44, SOURCE .BCD, NOL 1 ST, NODECK, LOAD.NOMAP, NOEOIT, 10,NO 
ISN 0002 SUBROUTINE NOTR I ( P, X, C, 1 E ) 

C 

C COMPUTES X = P**(-1)[Y), The ARGUMENT X SUCH THAT Y * P(X) = 

C THE PRDB THAT THE RANDOM VARIABLE U, DISTRIBUTED NORMALLVtO.l 1 , IS 
C LESS THAN OR EOUAL TO X. FIX), THE ORDINATE 0 F THE NORMAL DENSITY, AT X, 

C IS ALSO COMPUTED 
C ’• 

C P - INPUT PROBABILITY 

C X - OUTPUT ARGUMENT SUCH THAT P = Y = THE PROS THAT U, THE RANDOM 

C VARIABLE, IS LESS THAN OR EQUAL TO X 

C C - OUTPUT DENSITY, FIX) 

C IER - OUTPUT ERROR CODE 

C MAXIMUM ERROR IS 0.00045 

C 

ISN 0003 IE « O 

ISN 0004 X * ■ 999996674 

ISN 0005 C = X 

ISN 0006 IF IP) 1,4,2 

ISN 0007 1 IE = -1 

ISN 0008 RETURN 

ISN 0009 2 IF (P-1.0) 7,5,1 

ISN 0010 4 X - -. 99 9999 E 674 

ISN 0011 5 C = 0.0 

ISN 0012 RETURN 

C 

ISN 0013 7 C = P 

ISN 0014 IFIC - 0.51 9,9,8 

ISN 0015 SC* 1.0 - C 

ISN 0016 9 T2 = A LOG! 1.0/IC*C) ) 

ISN 0017 T * SORT I T2 1 

ISN 0018 X = T-12. 51551760. 802853*T60.0I0328*T2)/< 1.061.432788*76 

1 0. IR9269*T2 6 0. 001308*T*T2) 

ISN 0019 IF I P-0.5 ) 10,10,11 

ISN 0020 10 X = -X 

ISN 0021 11 C = 0.3989423*EXP I— X*X/2. 0) 

ISN 00 22 RETURN 

ISN 0023 END 

****** END OF COMPILATION ****** 


FB8-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST ,XR£F , MAP ,NCAL 

VARIABLE OPTIONS USED - SIZE** ( 126976,24576) DEFAULT OPTION(S) USED 

IEWOOOO NAME MDX02NI (R) 

I EH 0461 EXP 
IEH046I SORT 
IEH0461 ALOG 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION 

NAME 

NDTRI 

00 

ZA6 






LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL 

SECTION 

EO 
E 8 

ENTRY AODRESS 
TOTAL LENGTH 

EXP 

ALOG 

00 

2A8 

AUNRESOLVED 

AUNRES0LV6D 

E4 

SORT 

AUNRESOLVEO 


«***MOX02NI NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

I EH0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 
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117) 


OS/360 FORTRAN H 


OATE 71*004/16*12*38 


ISN 0002 


COMPILER OPTIONS - NAME= MAIN, OPT=02 , LINECNT=44, SOORCE , BCD, NOL 1ST, NODECK , LOAD, NOMAP. N0E01T, ID, N( 
SUBROUTINE OUTPTI 

C «** PRINT OUT BEST ASSIGNMENT *** ' ' 

C , 


ISN 0003 
ISN 0004 
ISN 0005 
ISN 0006 


DOUBLE PRECISION NAME , 

REAL NPERPD, LEVEL 

LOGICAL EXT ,AC*CL ’ • 

INTEGER*2 YDPL ,NSYR,NSFX,NRFX,NYRSST,NSTRFX,NPRGG,KPROG,KODE, 

1 NYRSFX, KODEM,KODESP,FINISH,NSTG,NFHL,NFHU,KODS, MAS, LABS, LABF, 

2 LABI , VEH.NMULT »NONREC,NYD, IS, HAT , LYR ,LETT ,LYD,M1N,LTR 


ISN 0007 


ISN 0008 


ISN 0009 
• ISN 00 iO 


ISN 0011 
ISN 0012 

ISN 0013 
ISN 0014 
ISN 0015 
ISN 0016 
ISN 0017 
I,SN 0018 
ISN 0020 

ISN 0022 
ISN 0024 
ISN 0025 
ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 


CCMM0N/5AVE1/ FINISH.NSTG.NCI ,ILY,LABF( 301 , LABS! 40) ,LA8H40) , 

1 NFML ( 40 ) ,NFMU( 40) , KODSI 40 ) ,STS C4I ) ,STG( 40 ) , VLR I 50 1 , HPR ( 50 ) , 

2 RPLH(50),MAS(40,3), RX0I12,50) 

COMMON/SAV2/EXT , ACCL,KNSTG,KNFAM, KNC I , KNP,KNMIS, JFLAG,TREF,NCSTR, 

1 PMAX.PMIN, ISTRT,IFIN,HAX1TR,HITR,K0DESP(6) .TITLEI 10) .LEVEL (20), 

2 CNTRVLI20I .FIXED (20) ,KGDEM( 50) , NSYR! 50 ) ,NSFX ( 50 ) .NAME ( 56 ) , 

3 YUPL(56),NRFX(50),NYRSST(84),NSTRFX(84) .NYRSFX (84),SUS(84),C(64) 

4, R(84), S(84) ,CS(90) ,NPROG(90),KPR0G(90) , K00EI90) 

C0HM0N/SAV3/GR0,GUESS rLP.NSOL ,MS0L,NP .HOS.NMI S,NSPR,NPERPD(30), 

1 PAD(30),LTR(50),PLR(50),RDIST(56,4) , ALP I (4, 60) 
COMMON/SAVALL/LCK.SLO ,NM,NEXO,NV,NUMO,MYRS, L20PT ( 8) ,NYO( 46 ) ,MAT (46 

1 1 , SUST 1 46 I , DS ( 46) , LYDI 46) , YD( 46) , IS( 102 1 ,L YR { 252 ) ,LETT( 250 ) , 

2 MIN(250),YRLH(250) f VEH(4,60) .NONREC (120,20) ,NHULT( 60 ,50) 

DATA ETR/IHE / 

DATA WTR/IHW/ 

HRITE (6,4010) 

00 805 J - 1 ,NM 
L'LETTt J ) " 

K'LYR ( J ) 

' H= 1 8990 1 LY6K 

IF(YRLM( J) .GT..001) CO TO 804 

IF(LETT( J-D.NE.L) WRITE! 6, 206) NAMECL I , VLR( L) ,WPR( L ) ,RPLH(L I »M, 

1 .YRLHU) 

IF( LETT (J-l)*EO«L) WRITE! 6,2061 ) M , YRLM( J ) 

GO TO 805 . 

804 I. = MINI J) 

IA=VEH(l,t> 

IB=VEH(2, I ) 

IC-VEH( 3,1) 

I D= VEHt 4, I ) 


ISN 0030 
ISN 0031 
ISN 0032 
ISN 0033 
ISN 0035 

ISN 0037 

ISN 0039 
ISN 0040 
ISN 0041 
ISN 0042 

ISN 0043 
ISN 0044 
ISN 0045 


ISN 0046 


X = NMULTU.L) 

X = YRLH(J)*X 
TR = ETR 

IFI LTRIL) .60.2) TR = WTR 

I F( LETT (J-l).NE.L) WRITE! 6, 202 ) NAME! L ) , VLR{ L ) ,WPR ( L ) ,RPLM(L ) ,M, 

1 X.STGI IA) , STG( IS) ,STG( IC ) , STG! ID) ,TR 
IFILETT(J-l).EO.L) WRI TE( 6, 202 1 ) M,X, STG( IA > ,STG( IB ) , 

1 STG( IC),STG( ID) ,TR 
805 CONTINUE 
RETURN 

202 FORMAT ( IX, A6,6X,F10.0,4X, FIO.O, F 10.0, 5X, 14, 4X.F5.2 ,9X, 5( A4.1X ) ) 
206 FORMAT ( IX, A6,6X,F10.0,4X, FIO.O, FIO.O, 5X, 14, 4X, F5.2.9X, 

1 32HNO LAUNCH VEHICLE CAN ACCOMPLISH) 

2021 FORMAT I 52X, 14, 4X , F5. 2,9X, 5! A4, IX) ) 

2061 FORMAT ( 52X , I4,4X,F5.2 ,9X, 32HNO LAUNCH VEHICLE CAN ACCOMPLISH) 

4010 FORMAT (8H0MISSI0N,4X, 14HCHARACTERISTIC,4X,7HPAYL0A0,4X , 6HRETURN , 

1 4X, 6HLAUNCH.4X .6HNUMBER, 10X,7H0PT1HUM, 8X, 6HLAUNCH/7H TITLE,4X, 

2 16H VELOCITY (FT/SEC),4X,5H(LBS) , 4X,7HPAYL0AD,5X ,4HYEAR ,3X, 11 HOF LA 
3UNC HE S,4X,14H LAUNCH VEHICLE, 5X, 4HS ITE//) 

ENO 


****** end OF COMPILATION »***«« 
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F SB-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L I ST,XREF»MAP ,NCAL 

VARIABLE OPTIONS USED - SI ZE= ( i26976i2A576» DEFAULT OPTIONIS) USED 

I EM 00 00 NAME MDX020IIR) 

IEW0461 IBCOM= 


CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

LOCATION 

NAME 

OUTPTI 

00 

58C 








SAVE1 

590 

FC4 








SAV2 

1558 

FEO 








SAV3 

2538 

980 








SAVALL 

2EB8 

3A1C 









LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

270 

SAVE I 

SAVE1 

274 

SAV2 

SAV2 

278 

SAV3 

SAV3 

27C 

SAVALL 

SAVALL 

280 

SAVALL 

SAVALL 

284 

IBCOM* 

SUNRESOLVEO 

:NTRY ADDRESS 

00 






TOTAL LENGTH 6B08 

****M0X020I NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEH0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


EXTERNAL SYMBOL DICTIONARY 


SYMBOL 

TY PE- 

ID 

ADDR 

LENGTH 

LD ID 

PACK 

SO 

01 

000000 

ooooeb 


UNPACK 

LD 


000052 


01 

ITEM 

LD 


000096 


01 
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LOC 

OBJECT CODE 

ADDRl" ADDR2 

STHT SOURCE 

: STATEMENT 






l * 

SUBROUTINE PACK ( 

L, H, I, N )' 





2 * 
3 * 


THIS ROUTINE 

PACKS I WOROS IN THE L ARRAY TO THE 





4 * * 


ARRAY H. DATA ITEMS L ARE TRUNCATED ON THE LEFT 





5 * 


AND ONLY THE 

N LOW ORDER BITS ARE RETAINED. 





6 * 


PACKED DATA 

IN H IS LEFT JUSTIFIED WITH 32/N ITEMS 





7 * 


PER WORD. 


OOOOOO 




9 PACK 

CSECT. 



000000 




10 

USING 

*.15 

USE REG 15 FOR BASE 

000000 

9027 

D01C 

0001C 

11 

STM 

2,7,281 131 

SAVE REGS 

000 004 

9825 

1000 

00000 

12 

LH 

2,5,0(11 

LOAD ADDRESSES OF ARGUMENTS 

000009 

5844 

0000 

00000 

13 

L 

4,0(4] 

I TO REG 4 - NO. OF ITEMS TO BE PACKED 

OOOOOO 

5875 

0000 

00000 

14 

L 

7,0(5) 

N TO REG 7 - NO. OF BITS/ITEM 

000010 

4270 

F029 

00029 

15 

STC 

7 , SHIFT+3 

MODIFY SHIFT INST WITH NO. OF BITS 

000014 

1367 



16 

LCR 

6,7 

NO. OF BITS SHIFT FOR DECREMENT 

000016 

0670 



17 

BCTR 

7,0 

N-l FOR COMPARAND 

000018 

1B11 



18 

SR 

1.1 

ZERO REG 1 

0000 1A 

4150 

0020 

00020 

19 WORO 

LA 

5,32 

LOAD A 32 TO REG 5 FOR COUNT 

OOOOIE 

5013 

0000 

00000 

20 

ST 

1,0(31 

ZERO STORAGE AREA 

000022 

5802 

0000 

00000 

21 LOOP 

L 

0,0(21 

LOAD DATA TO REG 0 

000026 

8C00 

0000 

00000 

22 SHIFT 

SRDL 

0,0 

SHIFT DATA TO REG 1 

00002A 

1800 



23 

SR 

0,0 

TRUNCATE ON LEFT FOR MOD Z**N 

00002C 

8000 

5000 

00000 

24 

SLOL 

0,0(51 

SHIFT BACK TO PROPER POSITION 

000030 

5603 

0000 

00000 

25 

0 

0,0(31 

OR PACKED WORD TO REG 0 

000034 

5003 

0000 

00000 

26 

ST 

0,0(31 

STORE SACK TO PACKED AREA 

000030 

4122 

0004 

00004 

27 

LA 

2,4(2] 

INCREMENT DATA ADDRESS 

00003C 

4640 

F046 

00046 

28 

BCT 

4, NEXT 

COUNT DOWN ON NO. OF ITEMS 

000040 

9827 

DO 1C 

0001C 

29 

LM 

2,7,28(13) 

RESTORE REGS 

000044 

07FE 



30 

BR 

14 

RETURN 

000046 

8656 

FO 22 

00022 

31 NEXT 

BXH 

5, 6, LOOP 

BRANCH BACK IF SPACE LEFT 

00004A 

4133 

0004 

00004 

32 

LA 

3,4(3) 

OTHERWISE INCREMENT STORAGE ADDRESS 

00004E 

47F0 

F01 A 

0001 A 

33 

8 

WORD 

AND CONTINUE 


LOC OBJECT CODE 

ADDRl A DDR 2 

STMT SOURCE STATEMENT 




35 * 

SUBROUTINE UNPACK ( 

L, M, I, N ) 



36 * 






37 * 


THIS ROUTINE 

UNPACKS I WORDS OF DATA FROM THE M 



38 * 


ARRAY TO THE 

L ARRAY. WORDS IN L ARE ZEROED AND N 



39 * 


BITS ARE PLACED RIGHT JUSTIFIED FROM THE PACKED 



40 * 


ARRAY M. 




41 * 






42 

ENTRY 

UNPACK 


00 DO 52 


43 

USING 

*,15 

USE REG 15 FOR BASE 

00005? 9027 U01C 

0001C 

44 UNPACK 

STM 

2,7,28(13) 

SAVE REGS 

000054 0825 1000 

00000 

45 

LM 

2, 5, 0(1) 

LOAO ADDRESSES OF ARGUMENTS 

0000 5 A 5844 0000 

00000 

46 

L 

4,0(4] 

I TO REG 4 - NO. OF ITEMS TO BE PACKED 

00005E 5875 0000 

00000 

47 

L 

7,0(5) 

N TO REG 7 - NO. OF BITS/ITEM 

000062 4270 F025 

00077 

48 

STC 

7 , LEFT+3 

MODIFY SHIFT INST WITH NO. OF BITS 

000066 1367 


49 

LCR 

6,7 

NO. OF BITS SHIFT FOR DECREMENT 

000068 0670 


50 

BCTR 

7,0 

N-l FOR COMPARAND 

00006A 4150 0020 

00020 

51 DATA 

LA 

5,32 

LOAO A 32 TO REG 5 FOR COUNT 

00006E 5813 0000 

00000 

52 

L 

1,0(3) 

LOAD PACKED DATA TO REG 1 

000072 1800 


53 BACK 

SR 

0,0 

ZERO REG 0 

000074 8D00 0000 

00000 

54 LEFT 

SLDL 

0,0 

SHIFT N BITS TO REG 0 

000078 5002 0000 

00000 

55 

ST 

0,0(2) 

STORE IN L 

00007C 4122 00C4 

0,0004 

56 

LA 

2,4(21 

INCREMENT STORAGE ADDRESS 

000080 4640 F038 

0008A 

57 

BCT 

4, MORE 

COUNT DOWN ON NO. OF ITEMS 

000084 9827 D01C 

0001C 

58 

LH 

2,7, 28! 131 

RESTORE REGS 

000088 07FE 


59 

BR 

14 

RETURN 

00008A 8656 F020 

00072 

60 MORE 

BXH 

5, 6, BACK 

BRANCH BACK IF MORE DATA 

00008E 4133 0004 

00004 

61 

LA 

3,4(3) 

OTHERWISE INCREMENT DATA ADDRESS 

000092 47F0 F018 

0006A 

62 

a 

DATA 

AND CONTINUE' 
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LOG OBJECT CODE 


ADDR1 AODR2 STHT SOURCE STATEMENT 






69 * 

FUNCTION ITEM 1 M, 

I, N 1 ) 





65 * 








66 * 


this routine' 

RETRIEVES THE I TH ITEM FROM THE PACKED 





67 * 


ARRAY M. 






68 * 








69 

ENTRY 

ITEM 


000096 




70 

USING 

*,15 


000096 

9025 

001C 

0001C 

7l ITEM 

STM 

2,5,281 13) 

SAVE REGS 

000O9A 

9829 

1000 

00000 

72 

LM 

2,9,0(11 

LOAO ADDRESSES OF ARGS TO REGS 2,3,9. 

00009E 

5833 

0000 

00000 

73 

L 

3,013) 

LOAD I TO REG 3 

0000A2 

0630 



79 

BCTR 

3,0 

SUBTRACT 1 FOR 1-1 

0000A4 

9100 

0020 

00020 

75 

LA 

0,32 

LOAD A 32 TO REG 0 

000 OAR 

8E00 

0020 

00020 

76 

SROA 

0,32 

SHIFT TO REG I 

0000 A C 

5009 

0000 

00000 

77 

D 

0,0(9) 

DIVIDE BY N 

000060 

5010 

FO*»E 

000E9 

78 

ST 

1 , TEMP 

NO. OF ITEMS/WORD 

ooooa* 

1803 



79 

LR 

0,3 

1-1 TO REG 0 

000 OB b 

BE 00 

0020 

00020 

80 

SRDA 

0,32 

SHIFT TO REG 1 

OOOOBA 

5DQ0 

F09E 

000E9 

81 

0 

O.TEMP 

DIVIDE I-l BY NO. 1TEHS/W0RD 

00006b 

1851 



02 

LR 

5,1 

SAVE IN REG 5 TO INDEX ARRAY M 

ooooco 

8B50 

0002 

00002 

83 

SLA 

5,2 

MULTIPLY BY 9 

oooot* 

8E00 

0020 

00020 

89 

SROA 

0,32 

REMAINDER TO REG t 

0000C8 

5C09 

0000 

00000 

85 

M 

0,0(9) 

MULTIPLY BY N 

oooocc 

1831 



86 

LR 

3,1 

LOAO TO REG 3 TO INDEX SHIFT 

ooooce 

5815 

2000 

00000 

87 

L 

1,0(5, 2) 

LOAO DATA FROM M ARRAY 

000002 

8910 

3000 

00000 

88 

S LI 

1,0(3) 

LEFT ADJUST PROPER ITEM 

0000D6 

5899 

0000 

00000 

89 

L 

9,0(9) 

LOAD N TO REG 9 

OOOOUA 

8000 

9000 

00000 

90 

SLDL 

0,019) 

SHIFT N BITS TO REG 0 

0000DE 

9825 

001C 

0001C 

91 

LM 

2,5,28(13) 

RESTORE REGS 

000062 

07FE 



92 

BR 

19 

RETURN 

000064 




93 TEMP 

OS 

P 






99 

END 




CROSS-REFERENCE 


SYMBOL 

LEN 

VALUE 

DEFN 

REFE 

BACK 

00002 

000072 

0053 

0060 

OATA 

00009 

00006A 

0051 

0062 

ITEM 

00009 

000096 

0071 

0069 

LEFT 

00009 

000079 

0059 

0098 

LOOP 

00009 

000022 

0021 

0031 

MORE 

00009 

00008A 

0060 

0057 

NEXT 

00009 

000096 

0031 

0028 

PACK 

00001 

000000 

0009 


SHIFT 

00009 

000026 

0022 

0015 

TEMP 

00009 

0000E9 

0093 

0078 

UNPACK 

00009 

000052 

0099 

0092 

WORD 

00009 

00001A 

0019 

0033 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 
120 PRINTED LINES 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL 
VARIABLE OPTIONS USED - SIZEM 126976,24576) 
I EWOOOO NAME MOXOIPK(R) 

,#***H0X01PK NOW REPLACED IN DATA SET 


DEFAULT OPTION IS) USED 


FORTRAN IV G LEVEL 1. MOD. A PDCSTI 


DATE = 71084 16/56/06 


PAGE 00 


0001 


0002 ’ 
0003 


0004 

0005 
0006- 


0007 

0008 
0009 


0010 

0011 


0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


SUBROUTINE PDCSTI 

C DETERMINE IF MORE THAN ONE PAD NEEDED AT EACH COMPLEX AND IF PREVIOUSLY 
C UNC0NS10ERED COSTS ARE TO BE ADDED TO TOTAL COST FOUND IN ALGORITHM 
C ' " 

REAL NPER PD »N FUSED 

INTEGER*2 KOUT ,LTR , VEHtNMULT, NONREC.NYO, I S,MAT , LYR ,L£TT ,11 YD, MIN, 

1 N VEH, MATCH, JF, JL.NA DD , NX, MINOPT, MORE, NPSTG. NPAO, NPF AM,NFSf 

2 NPINTL,NPINTU, MAPS, MAPF, MAPI ,NI NTYR ,NTGYTR ,MAF, MAIC, F I NISH.NSTG, 

„ 3LABF,LABS,LA6I ,NFML ,NFMU,KDDS,MAS 

■c 

COMMON/SAVE 1/ FINISH, NSTG, NCI, ILY,LABF(30I ,LABS( 40 ) ,LA6I <40 ) , 

. 1 NFHL(40),NFMU(40! ,KODS(40) .STSI41) , STGt 40) , VLR ( 50) , WPRt 50> , 

2 RPLMI50) ,MASI40,3) , RXD(12,50) 

COMMON/ SAV3/GR0, GUESS, LP,NSOL, MSOL.NP ,MOS,NMIS,NSPR.NPERPDI301 , 

I PAD! 30) , LTR (50),PLRI50),RDIST(56,4) , ALPI (4,60) 

COMMON/ SAV4/ MAF 130,3), MAIC(40,3), ‘ 

* NPADt 2,60) ,NPFAMI30,5) ,NP1NTL( 30 ,5) ,NPINTU( 30,5 ) , 

1 NFSI40,4),NPSTG(30,10),HAPS(30,10) ,MAPF 1 30, 10 ) ,MAP 1 1 30, 10) , 

2 PFAMDI 30,5,2), PFAMS (30, 5, 2), PI NT SI 30, 5, 2), PSTGO 1 30, 10,2),“ 

3 PSTGSI30, 10,2) ’ 

COMMON/S AVAIL /LCK,SLO,NM,NEXO, NV,NUMD,MYRS, LZOPT I 8) ,NYD( 46 ) ,MAT (46 - 
1 ) ,SUST(46) ,DSI46) ,LYDI46) ,Y0(46I ,1S< 102) , LYRI252) VLETTI 250) , 

2 MINI 250},YRLM1250),VEHI4,60) , NGNRECt 120,20} .NMULTI 60,50 ) 

'COMM UN/ TEMP/ VNM (2,250) , I FL AG, KI ,NEXT ,LOUT,SAVS t 40) ,K0UT(40) , 

1 NINTYRI40,20) , NTGYTRI 40,20,2) .RECURI 60,20,2 ) 
COHMON/SCRACH/EXTRA,NADD,NX,M0REI50),LZI46),WI500) ,W2(500) , 

1 TDS F500)‘*WR 1 499 ) ,Z I 500) .COST! 2,2S0) ,MINOPT< 246,9 ) ,NODE< 5,500), 

2 NPOS.S IGS0I9) ,ETCI9> , 

4 JFI20I ,JL!20), HATCH (20) ,NPUSED( 20) ,NVEH(20,6) 

C 

IFCH0S.EQ.1.0R.HOS.EQ.3I GO TO 362 
NOT = 0 

C MORE = .NUMBER OF NODE WHICH HAS BEEN CONSIDERED AS OPT. SOLN. 

502 00 355 .1 = 1,50 

IF IMURE(I).EO.NX) GO TO 360 
IFIMOREID.NE.O) GO TO 355 
MORE! I) “ NX 
NTEH = NPDS + 1 

IF(LP.GT.O) WR ITEI 6,404 ) NTEH,NX,W(NX) , TDS ( NX ) ,ZI NX ( 

60 TO 356 
355 CONTINUE 
357 WRITE I 6,358) 

GUESS = 0.0 
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FORTRAN IV G LEVEL 1 , HOD A 


PDCSTI 


DATE * 71084 


16/56/06 


0022 


RETURN 




0023 

325 

W RI TE ( 6 »401 1 NX,PADI1),J 




0024 


ZINX) = 20.0E30 




0025 


RETURN 




0026 

360 

DO 361 J = 1,49 




0027 


IFIMOREI JI.EO.O) GO TO 354 




0028 

361 

HORE(J) = H0RE(J+1) 




0029 


MORE! 50) = 0 




0030 

354 

IF ( NADD.GE. 1 .OR. 1 LCK.EQ. 1. AND. I FLAG. EO. 01 ) 

GO 

TO 

0031 


NEXD = 0 




0032 


IF(NOT.EO.l) go TO 500 




0033 

362 

NOT * 1 




0034 

356 

fcXTRA = 0.0 




0035 


1F1NP.E0.0) GO TO 1 




0036 


DO 320 I = l.NP 




00 37 


DO 322 K = 1,MYRS 




0038 


NPUSEDtK) = 0.0 




0039 


DO 322 J = 1,6 




0040 

322 

NVEHIK.J) = 0 




c 

COUNT NUMBER OF LAUNCHES REQUIRED 

PER PAD PER 

YEAR 

0041 


DO 321 J = 1,NM 




0043 


IF1YRLM1 J1.LT.. 001) GO TO 321 




0043 


Kl= MIN(J) 




0044 


JA = LETT 1 J ) 




004 5 


L = LTR(JA) 




0046 


IF (NPAD! LtKl ) .NE. I ) GO TO 321 




0047 


H = LYRIJ) 




0048 


X = NMULHK1 » JA) 




0049 


X = YRLM(J)*x 




0050 


NPUSEOIM) = NPUSEDIHI + X 




0051 


DO 323 HE ,= 1,6 




0052 


IF(NVEH(M,H6).EQ.K1) GO TO 321 




0053 


IF INVEHtM,ME>.NE.O> GO TO 323 




0054 


NVEH1H.ME) = K 1 




0055 


GO TO 321 




0056 

323 

CONTINUE 




0057 

321 

CONTINUE 




C 

SEE IF SECOND PAD IS REQUIRED AT 

ANY FACILITY 



0058 


00 331 J » 1,20 




0059 

331 

MATCH! J ) = 0 




0060 


DO 324 J = 1,HVRS 




0061 


IF IMPOSED! J) .GT.2.0*NPERPDU1) 

GO TO 325 



0062 


IF 1 NPUSEDI J ) . LE.NPERPD! I ) ) GO 

TO 324 



FORTRAN IV G LEVEL 

1, MOD 4 PDCSTI 

DATE > 

■= 71084 

0063 


00 326 K = 1,10 




0064 


IF INPSTGI I.KI.EO.O) GO TO ,329 




0065 


IF ! PSTGD! I ,K»2 ) + PSTGStI,K,2> 

.LT..001) GO 

TO 

326 

0066 


00 327 L = 1,6 




006 7, 


IF (NVEH! J.D.EO.O) GO TO 326 




0068' 


LA = NVEHIJ.LI 




0069 


DO 328 LB = 1,4 




0070 


IF(VEHILB.LA) .EO.O) GO TO 327 




0071 


IF ! VEH ( LB, LA) .NE.NPSTG! I,K) ) GOTO 328 



0072 


DO 330 LC = 1,20 




0073 


IF !MATCHILC).EQ.0I GO TO 332 




0074 


IF IMATCH1LC) .EQ.K) GO TO 333 




0075 


GO TO 330 




0076 

332 

HATCH! LC ) = K 




0077 


JF1LC) = J 




0078 

333 

JLILCI = J 




0079 


GO TO 326 




0080 

330 

CONTINUE 




0081 

328 

CONTINUE 




0082 

327 

CONTINUE 




0083 

326 

CONTINUE 




0084 

329 

DO 334 K = 1,5 




0085 


IF (NPFAMII.K) .EQ.O) GO TO 335 




0086 


IF !PFAMD(I,K,2I + PFAH$(1,K,2) 

.LT..001) GO 

TO 

334 

0087 


DO 336 L = 1,6 




0088 


IF INVEHt J,L> .EQ.O) GO TO 334 




0089 


LA = NVEH! J, L) 




0090 


DO 337 LB = 1,4 




0091 


IF (VEH! LB, LA) .EO.O) GO TO 336 




0092 


LD = VEH! L8,LA) 




0093 


DO 338 LC - 1,4 




0094 


IF (NFS(LDfLC).EQ.O) GO TO 337 




0095 


IF (NFS(LD,LC).NE.NPFAH( I,K)) GO 70 338 



0096 


K1 * — K 




0097 


DO 339 LE = 1,20 




0098 


IF 1 MATCH (LE). EQ.O) GO TO 340 




0099 


IF {HATCH(LE).EQ.Kl) GO TO 341 




0100 


GO TO 339 




0101 

340 

MATCH! LE) * KI 




0102 


JF(LE) = J 




0103 

341 

JL(LE) = J 




0104 


GO TO 334 




0105 

339 

CONTINUE 
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FORTRAN 

IV G 

LEVEL 

1, HOD 4 PDCST1 

DATE = 71084 

0106 


338 

CONTINUE 



0107 


337 

CONTINUE 



0108 


336 

CONTINUE 


1 

0109 


334 

CONTINUE 



0110 


335 

DO 342 K « 1,5 



01 11 



IF !NPINTL!l,Ki.E0.0) GO TO 324 



0112 



IF IPINTS! I,K,2).LT..0011 GO TO 342 



0113 



DO 343 L - 1,6 



0114 



IF (NVEHI J,L> .EQ.01 GO TO 342 



0115 



LA = NVEH ! J , L > 



0116 



DO 344 LB = 1,3 



0117 



IF 1 VEHi LB+1 , LA) . E0.01 GO TO 343 



0118 



LC = VFH! LB, LA ) 



0119 



00 345 LD = 1,4 



0120 



IF (NFS!LC,LO).EO.O) GO TO 344 



0121 



IF !NFS!LC,LD1 .NE.NPINTL! I ,K) 1 GO TO 

345 


0122 



L£ = VFH! L8+1, LA) 



0123 



DU 346 LF = 1,4 



0124 



IF INFSILE.LF) .EO.O) GO TO 345 



0125 



IF INFSILE.LF). EO.NPINTUII.K)) GO TO 

347 


0126 


346 

CONTINUE 



0127 



GO TO 345 



0128 


347 

K 1 = -100 - K 



0129 



DO 348 LG = 1,20 



0130 



IF fMATCHiLGI.EO.O) GO TO 349 



0131 



IF 1MATCHILG1.E0.K1) GO TO 350 



0132 



GO. TO 348 



0133 


349 

HATCH1LG) = K1 



0134 



JF(LG) = J 



0135 


350 

JLILGI ■ J 



0136 



GO- TO 342 



0137 


348 

CONTINUE 



0138 


345 

CONTINUE 



0139 


344 

CONTINUE 

■ 


0140 


343 

CONTINUE 



0141 


342 

CONTINUE 



0142 


324 

CONTINUE 





C ADD EXTRA PAD COSTS ASSOCIATED WITH THIS SOLUTION 

0143 



DO 351 J = 1,20 



0144 



IF (HATCH! J) .EO.O) GO TO 320 



0145 



IF I MATCHIJl.LT. —100) GO TO 352 



0146 



IF (MATCHtJ) .LT.Q) GO TO 353 



0147 



K = MATCHtJ) 



FORTRAN 

IV G 

LEVEL 

1, MOD 4 . PDCSTI 

OATS 

= 71084 

0148 



EXTRA = EXTRA +, PSTGDI I ,K,21 + PSTGSU ,K,2) 

* FLOAT! JLIJ 

0149 



I F I NOT .EO.O ) GO TD 351 



0150 



IF 1 PSTGD! I ,K,2> + PSTGS! I ,K, 2 ) . LT. .01 1 GO 

TO 351 

0161 



NEXD = NFXD +■ 1 



0152 



NDUM « NUMD + NEXD 



0153 



DSINDUM) ■= PSTGD! I, K, 2) 



0154 



SUST (NDUM) = PSTGS! I, K, 2) 



0155 



MAT (NDUM) = -300 - I + 2000 



0156 



MAPS! I ,K) = NDUH 



0157 



NYD(NOUM) = JF(J) 



0158 



LYDINDUM) = JLIJ) 



0159 



YD! NDUH) = 1.0 



0160 



LZINDUH) = JLIJ) - JFtJ) + 1 



0161 



NDUM = NOUH + NSPR + NHIS 



0162 •’ 



IS 1 NDUM) = JF ( J ) - 2 + 1900 ♦ ILY 



0163 



GO TO 351 




16/56/06 


16/56/06 


0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 


353 


K = -HATCH! J) 

EXTRA = EXTRA + PFAHD1 1 »Kt2) + PFAHS! I »K, 2)*FL0AT( JL! Jl-JFt J 1+1 ) 
IF(NQT.EO.O) GO TO 351 

I F ( PFAMDl I , K, 2 ) + PFAMS!I,K,2I.LT..01) GO TO 351 
NEXO = NFXD + 1 
NDUM = NUKD + NEXD" 


PFAMDI I ,K,2) 

= PFAHS!I,K,2I 
= -200 - I + 2000 

NOUH 

= JFCJ) 

= JLIJ) 

« 1.0 

* JLIJ) - JFtJl + 1 
^ NSPR + NMIS 
JF(J> - 2 + 1900 ♦ 1LY 


352 


DS(NDUM) 

SUSTINOUM) 

HAT(NDUM) 

MAPF!1,K) : 

NYOINDUM) 

LYDINDUM) 

YO(NOUH) 

LZINDUH) 

NDUH = NOUH 
ISINDUM) 

GO TO 351 

K = -HATCH! J I - 100 ’* ' »...*• 

EXTRA « EXTRA + PINTS!!, K, 2) * FLOAT! JLI Jl-JFCJl+l > 

IF1NDT .EO.O) GO TO 351 

IP(P1NTSU,K,2).LT..001) GO TO 351 

NEXD = NEXO + 1 

NDUH = NUMD + NEXO 

DSINOUH) - 0.0 

SUSTtNOUM) = PINTS! It K, 2) 

HAT (NOUH I = -400 -I + 2000 

MAP 1 1 1 1 K 1 * NDUM 


PAGE 00 


PAGE 00 
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FORTRAN IV G LEVEL 1, HOD 4 


PDCSTI 


DATE = 71084 


16/56/05 


PAGE 00 


0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 


0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 
0229 


FORTRAN 


0230 


0231 

0232 

0233 

0234 

0235 


0236 

0237 
0238i 

0239 

0240 

0241 

0242 

0243 

0244 
-0245 


0246 

0247 

0248 

0249 


C 

C 


NVD1N0UH) 
LYDINOUM). 
YD I NDUM 1 
LZINDUM) 
NDUM = NDUM 


» JFIJ) 

= JLtJ) - 

= 1.0 

= JLIJ) - JFIJ) 
NSPR + NHIS 


+ 1 


ISINDUM) 

351 CONTINUE 
320 CONTINUE 

1 IFIMOS.EO.l.OR.MOS.EQ.3) 
I F INOT.EQ* 1 1 GO TO 500 
IF(LP.GT.O) 

1WRITE(6,403) 'EXTRA 


= JFIJ) - 2 + 1900 + ILY 


GO TO 501 


ADO PREVIOUSLY NEGLECTED SUSTAINING COSTS 
IF(LOUT.EQ.O) GO TO 11 
501 DO 10 I • l.NUMO 

IFIKOUT(I).EQ.O.OR.LZU).EQ.O) GO TO 10 
LZ( 1) =0 
LT = KOUT ( I 1 
DO 8 J = 1,NM 
LM = HINIJ) 

IFILH.E0.Ol GO TO 8 
LY = LYRIJ) 

IFIKI.E0.2) LY = ILYRIJ1 + 11/KI 
LI. = LH 
LX = LETT I J 1 

• IFI LTRILX1.E0.21 LI * LH + NV 
00 6 KK = 1,20 

IFINONRECILUKKJ.EO.O) GO TO 8 
I F (NONREC ILltKKI.NF.il GO TO 6 
IF I LY.GE . LZ 1 1 ) 1 LZII1 = LY 
6 CONTINUE 
8 CONTINUE 

1 F I MOS.EO. 1 .OR .M0S.EQ.3.0R.LZ C 1 1 . E0.01 GO TO 10 
XX = LZ f I l«KI - NYDII1 + 1 
EXTRA = EXTRA + XX*SAVS(LT1 

WRITE! 6,410) 1 , LZ < I ) , NYDI I ) , XX, SAVS I LT) , EXTRA 
410 FORHAT (3I6,3F10.2) 

IF IDS! 1 1 . LT. 1.0. AND.NSOL.LE. 1 ) 

1 EXTRA =• EXTRA + DSII) 

10 CONTINUE 

IFIMDS.EO.l.OR.HOS.EQ.3) GO TO 500 
CALL PACK I LZ • NODE I 1«NX) »NUHD,4) 


IV G LEVEL 1, MOD-4 PDCSTI DATE » 71084 16/56/06 PAGE 00 

IFI LP.GT.01 
1WR1TE 16,4051 EXTRA 
11 IFlEXTRA.LT. .001) NDT = 1 
IFlEXTRA.LT. .001) GO TO 502 
TOSINX) = TDSINX) + EXTRA 
11 NX) = ZINX) + EXTRA 
IF t LP.GT. 0) 

1KRITE!6,210) ZINX) 

55 EXTRA a 100.0 
RETURN 

500 DO 76 NO = l.NUMO 
76 LZ(NO) « LZ(NO)*KI 

CALL PACK) LZ.LZOPTI 1) , NUHD+NEXD, 5 ) 

359 EXTRA = 0.0 
RETURN 

210 FORHAT I 12H NEW VALUE =, F12.2) 

358 FORHAT I 36H0HDRE THAN 50 NODES HAVE SEEN TESTED) 

401 FORHAT I 26H0P0SSI BLE SOLUTION AT NODE, 14, 49H NOT FEASIBLE, MORE TH 
IAN 2 PADS NEEDED AT COMPLEX, IX, A4,8H IN YEAR, 13) 

403 FORMAT I 18H06XTRA PAD COSTS =, F10.Z) 

404 FORHAT I 1H0, 121 1H*> ,19H POSSIBLE SOLUTION , 13 ,2X, 12 1 1H*) /1H ,13, 

1 29X,3 I F9.2.5X ) ) 

405 FORMAT I 31H0EXTRA PAD £ SHALL SUST COSTS F10.2) 

. END 
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FORTRAN IV G LEVEL 1, MOD 4 


PDCSTJ 


DATE = 71084 


16/56/06 


PAGE 00 


TOTAL MEMORY REQUIREMENTS 001BC2 BYTES 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST ,NCAL, MAP 

VARIABLE OPTIONS USED - SIZE*! 126976,24576) DEFAULT OPTIONIS) USED 

IEWOOOO NAME MOX02PC ( R I 

I EW 046 1 IBCOM= 

1EW0461 PACK 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

PDCSTI 

00 

1BC2 

SAVE 1 

18C8 

FC4 

SAV3 

2B90 

980 

SAV4 

3510 

3188 

SAVALL 

6698 

3A1C 

TEMP 

A0B8 

4110 

SCRACH 

E1C8 

6A60 


MODULE HAP 

ENTRY 

NAME LOCATION - NAME 


LOCATION ' NAME LOCATION 


ENTRY ADDRESS 00 - 

TOTAL LENGTH 14C2B . 

****MOX02PC NOW REPLACED IN OATA SET 

DIAGNOSTIC MESSAGE DIRECTORY 

IEW0461 WARNING - SYMBOL PRINTEO IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL HAS SPECIFIEO. 


NAME 


D-58 



< 1 ?» 


0S/360 FORTRAN H 


DATE 71.084/16.15.14 


COMPILER OPTIONS - NAME= MAIN, 0PT=02,LINECNT=44, SOURCE, BCD, NOLIST, NODECK, LOAD, NOMAP.NOEOIT, ID, NO 
ISN 0002 SUBROUTINE PERF1 (INCL,N,VREF) 

1SN 0003 REAL LENT, ISP, ISPA, INCL 

ISN 0004 INTEGER COUNT 

ISN 0005 COMMON/ SCR AC H/ I P, I V , IG»NPAX( 2i,NEH(4) ,NST141I .THRTI41I ,DIAH(41 ) , 

1 TSL(4l),LENTt41),WTFU(41J ,WT INI 41 1 , ISPC 41 1 ,MZl 50) ,LZI 50 1 , 

2 H I NT (3, 60 1 ,'KX ,NX*HGHT( 40) ,WF(4),WT(4), I SPA 1 4) , 

3 THUTt 4) ,PRT! 60) ,M,VDES,WPL,PR,K1, 1 ERR.DUMt 60671 

ISN 0006 DATA PI,G /3. 141 593 ,3Z. 174/ 

ISN 0007 K = N 

ISN 0008 TLS = TSLtKl ) 

1 ISN 0009 DIA = 0IAMIK1) 

ISN 0010 KODE = O 

ISN 00 11 I ERR = 0 

ISN 0012 V = VDES 

ISN 0013 WPL * 0. 

ISN 0014 1FIPR.LE.0.) GO TO 30 

ISN 0016 10 WPL = PR 

ISN 0017 30 DO 100 COUNT ='1,50 

ISN 0018- W = WPL 

ISN 0019 DO 40 I = 1,K 

ISN 0020 40 • W = WSHFIDEWTin 

ISN 0021 WLO = W 

ISN 0022 V I DL = 0. 

ISN 0023 DO 50 1=1, K 

ISN 0024 WB = W-WF(I) 

ISN 0025 IFIWB.GT.O.) GO TO 48 

ISN 0027 45 I ERR = 2 

ISN 0028 RETURN 

ISN 0029 48 V I OL - = VIOL E G* 1 SPA ( 1 1 * ALOGI W/WB) 

ISN 0030 50 W = WB-WT(I) 

ISN 0031 IF (KODE) 90,55,90 

ISN 0032 55 IF I PR ) 70,70,60 

ISN 0033 60 VLOSS = VIOL-VREF 

ISN 0034 GO TO 97 

ISN 0035 70 TB = 0. 

ISN 0036 . DD 80 1=1, K 

ISN 0037 80 TB = TB E WFI 1 )*I$PA( I > /THUTI 1 1 

ISN 0038 WX = WB * EXP ( VOES/ISPAI K ) /G I 

ISN 0039 TB = TB - (WX-WB1*ISPA(K)/THUTIK) 

ISN 0040 TOW “TLS/WLO 

ISN 0041 IF (TOW. GT. 1.5) TOW • 1.5 

ISN 0043 VLOSS = 6800. *( 2. -TOW ) E 2800. *( THUTI 1 l/TLS-l . ) 


* £.5E6*PI*DIA**2/WL0E4.1* EXP(TB/125.) -1530.*C0S( INCL/57.296) 


ISN 

0044 

90 

OELV = VI DL-VLOSS-VREF-V 

ISN 

0045 


WPL = WPL& (WPLCWT(K) ) *0ELV/I SPA( K)/G*( l.CWB/( WBGHF(K) ) I 

ISN 

0046 


IFIABSIDELV1.GT.1. ) GO TO 100 

ISN 

0048 

' 95 

IFIKODE.EO.O) GO TO 96 

ISN 

0050 

110 

IF (WPL.LT.O. I 1 ERR = 1 

ISN 

0052 

120 

RETURN 

ISN 

0053 

96 

PR = WPL 

ISN 

0054 

97 

V = VDES 

ISN 

0055 


K = NEH 

ISN 

0056 


KODE = 1 

ISN 

0057 


WPL = 0. 

ISN 

0058 

100 

CONTINUE 

ISN 

0059 


IERR = 3 

ISN 

0060 


RETURN 

ISN 

0061 


END 


****** END OF COMPILATION ****** 
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F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LI ST, XREF.MAP.NCAL 

VARIABLE OPTIONS USED - SIZEM 126976,24576) DEFAULT OPT IDN(S) USED 

2EHOOOO NAME M0X02P HR) 

IEWOA61 COS 
1EW0461 EXP 
IEW0461 ALCG 


■ CROSS REFERENCE TABLE 


CONTROL SECTION ENTRY 


NAME 

origin 

length 

NAME LOCATION 

NAME LOCATION 

NAME 

LOCATION NAME 

PERP! 

00 

ABC 





SCRACH 

ACO 

6A60 




' 

LOCATION 

REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

120 


SCRACH 

SCRACH 

12A 

•COS 

SUNRESOLVED 

128 


FXP 

SUNRESOLVED 

12C 

ALOG 

SUNRESOLVED 

ENTRY AOORESS 

00 





TOTAL LENGTH 

6F20 

• 




****M0X02PI 

NOW REPLACED IN 

DATA SET 





' DIAGNOSTIC MESSAGE DIRECTORY 

IEW0461' WARNING - SYMBOL PRINTEO IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


I IT) 

I 


OS/360 FORTRAN H 


DATE 7 1 .084/16. 16.19 


1SN 

0002 

ISN 

0003 

ISN 

OOOA 

ISN 

0005 

ISN 

0006 

ISN 

0007 

ISN 

0008 

ISN 

0009. 

/ 


/ 


ISN 

0010 

ISN 

0012 

ISN 

0013 

ISN 

001A 

ISN 

0015 

ISN 

0017 

ISN 

0019 

ISN 

0021 

ISN 

0023- 

ISN 

0025 

ISN 

0027 

ISN 

0028 

ISN 

0030 

ISN 

0032 


COMPILER OPTIONS - NAME= MAIN »0PT=02»CINECNT=44, SOURCE, BCD, NOLIST , NODECK , LOAD, NOMAP, NOEDIT, 10, NO 
SUBROUTINE PRINTI 

C ***PRINT OUT DECISION COST CATEGORIES*** 


REAL NPERPO 

I NTEGER*2 LSA,NYS,KOOEF,LST,MST, IST,JST,KST, VEH,NMULT,NONREC,NYD, 

1 I S,MAT,LYR,LETT ,LYO,MIN,LTR ,npstg,npad,npfam,nfs,npintl ,NP1NTU, 

2 MAPS.MAPF.MAPI ,finish,nstg,nfml,nfhu,kods,mas,labs,labf,labi, 

3 MAF.MAIC 

COMMON/SAVDMP/ NFAM, KFLAG, FAM I 30 ) , KOOEFI 30 ) , FMNRI 30 ) , FMSUS 1 30 I , 
1JSTI30) ,YDF(30) , LS AI40) , SNR1 AO) ,NYS( 40) , DINT1 40 ) ,S INT( 40 ) ,KST (40 ) , 

2 YDi (AO) , YDS I AO) ,ISTt AO) , FMSLS(30,2) , StJSLS I A0,2 1 , S INTLS ( 40,2) , 

3 LST(30,5), YDPF (3O,5),MSTI30,10) , YDPSI 30,10) 

COMMON/SAVE 1/ FINISH,NSTG,NCI, ILY,LABF(30) , LABS I AO) , LAB II AO), 

1 NFMLIAO) ,NFMUIAO),KODS(AO),STSIA1),STGI AO) ,VLRI50) ,WPR(50) , 

2 RPLMt 50 ) , MASt AO, 3) « RXD(12,50) 

COMM 0N/SAV3/GR0, GUESS, LP,NSOL,HSOL,NP,MOS,NHIS,NSPR,NPERPD (30), 

1 PA0l30),LTR(5O),PLRIS0),RDIST(56,A>,ALPI(A,60) 

COMMON/SAVA/ 'MAF ( 30,3) , MAIC(A0,3), 

* NPA0(2,60) , NPF AM( 30,5 ) ,NPINTL ( 30,5 ) ,NPINTU( 30,3 ) , 

1 NFS I AO, A) ,NPSTGl 30, 10) , MAPS (30, 10) ,MAPF(30, 10) .MAPI ( 30 , 10 ) , 

2 PFAMD( 30, 5, 2) ,PFAMS( 30,5,2 ) , PINTS! 30, 5, 2) , PSTGDI 30,10,2), 

3 PSTGSI30, 10,2) 

COMMON/S AVALL/LCK,SLO,NM,NEXO, NY, NUMD,MYRS,LZOPT( 8) , NYD( 46 ) , HAT (A6 
1 ) , SUST I 46) * DS ( 46) , LYD(46 ) , YD[ 46) , IS( 102 ) »LYR( 252 1 ,LETT ( 250) , 

2 MIN (250) , YRLM ( 250) ,VEH! A, 60) ,N0NREC(12O,2O) ,NMULTI60,50) 

2 IF(NUMD.EO.O) RETURN 
WRITE! 6,211) 

DO 925 I = l.NUMD 
J=HAT(I> 

IF( J.GT.1000). J = J - 2000 
IF IJ.LT.-400) GO TO 9071 
IF ( J. LT.— 300) GO TO 9072 
IF IJ.LT.-200) GO TO 9018 
IF1 J.LT.-100) GO TO 3A5 
IFU.LT. 0) GO TO 3A0 
DO 9073 K * 1,3 
IF (MAS! J,K) .NE.I > GO TO 9073 

IF(K.EO.l) WRITE! 6, 208 J I ,DS ( I ) ,SU$T( I ) , STG( J ) ,NYD(I) ,LYD( I ) , 

1 IS( ICNMISSNSPR), YOU) 

IF(K.EO.Z) WR!TE(6,9074> 1 , DS (II ,SU5T ( I ) , STG( J ) ,NYD( I)»LYD(I), 

1 ISI ICNMISENSPR) , YOU) 





ISN 0034 

ISN 0036 
ISN 0037 
ISN 0038 
ISN 0039 
ISN 0040 
ISN 0042 

ISN 0044 

ISN 0046 

ISN 0048 
ISN 0049 
ISN 0030 
ISN 0031 
ISN 0052 
ISN 0053 
ISN 0054 
ISN 0056 

ISN 0058 

ISN 0060 

ISN 0062 
ISN 0063 
ISN 0064 
ISN 00 65 
» ISN 0066 
ISN 0068 
ISN 0069 

ISN 0070 
ISN 0071 
ISN 0072 
ISN 0073 
ISN 0074 
ISN 0076 
ISN 0077 


IFIK.EQ.3) HR ITEI 6 ,9075 ) 

. 1 ISUCNMISCNSPR), YDU) 
GO TO 925 
9073 CONTINUE 
340 JX=r-J 

DO 9076 K = 1,3 
IF !MAFIJX,K).NE.I) GO TO 
IF(K.EO.I) HR I TE I 6, 209 ) 

I IS! ICNMISCNSPR), YOtll 
IFIK.E0.2) WRITE! 6,9077) 
1 ISUCNMISCNSPR), YOU) 
IF(k.E0.3) HR I T£( 6, 9078 ) 
1 ISUCNMISCNSPR), YOU! 
GO TO 925 
9076 CONTINUE 
345 JX=-J-100 
JY=NFMLI JX) 


I,DSUI f SUSTU)»STGIJI ,NYD! I) ,L-YOU), 


9076 

I,DS(I>,SUSTU!,FAH(JX),NYOU),LYDU>, 
I , OS I I) « SUST 1 1 1 , FAHI JX) ,NYOI I ) ,LYO( I ) , 
1 , OS ( 1 ) , SUST !I ) , FAN! JX) ,NYO( I ) ,LYDI 1 1 , 


J2=NFMUIJX> 

DO 9079 K = 1,3 

IF IMAItt JX,K).NE.I) GO TO 9079 

IF(K.EQ.l) HR ITE ! 6 ,2 10) i ,0S (!) .SUSTII) , FAH! JY) , FAH( JZ) ,NYOI I) , 

1 LYDU), 151 ICNHISCNSPR) , YDU) 

IFIK.E0.2) HR ITE (6, 9080! I, OS! I) ,SUSTI I ) , FAH! J Y) , FAHI JZ1 ,NYD ( I I , 
1 LYDU), IS! I CNMISCNSPR) , Y0II1 
IFIK.E0.3) WRITE 16,9081) I ,0S U ) ,SUST(I ) , FAH! JY) , FAM! JZ! ,NYO II ) , 
1 LYDU), IS! ICNMISCNSPR), YDU) 

GO TO 925 
9079 CONTINUE 
9018 JX = -J - 200 

00 9082 K = 1,5 

IF (MAPFIJX.KI.NE.I) GO TO 9082 
KX = NPFAMIJX.K) 

WRITE! 6,9083) I ,OStIJ .SUSTt I) ,FAHI KXI ,PAO(JX) ,NYO! I >,LYOU >, 

1 IS! ICNHISCNSPR) , YOU) 

GO TO 925 
9082 CONTINUE 
9072 JX = -J - 300 

00-9084 K * 1,10 
IF I HAPS I JX , K ) . NE « I ) GO TO 9084 
KX = NPSTG1JX.K) 

WRITE (6,9085) I ,D$( I) , SUST I ! I ,5TGt KX) ,PAO! JX) , NYDI I ),LYD( I ), 

1 IS! ICNHISCNSPR), YOU) 


ISN 0078 
ISN 0079 
ISN 0080 
ISN 0081 
ISN 0082 
ISN 0084 
ISN 0085 
ISN 0086 

ISN 0087 
ISN 0088 
ISN 0089 
ISN 0090 
ISN 0091 

ISN 0092 

ISN 0093 

ISN 0094 


ISN 0095 
ISN 0096 
ISN 0097 
ISN 0098 
ISN 0099 
ISN 0100 
ISN 0101 
ISN 0102 
ISN 0103 
ISN 0104 


GO TO 925 

9084 CONTINUE 
9071 JX = -J - 400 

DO 9086 K * 1,5 

IF (MAPI I JXrKl.NE.I) GO TO 9086 ’ 

KX = NPINTL(JX.K) 

KY = NPINTU! JX,K) 

WRITE! 6, 9087) I ,DSU ) , SUST [ 1 ) , FAH I KX ) , FAH! KY I ,PAD( JX I ,NYO( I ),LYD( I ) 

1 , IS!) CNMI SCNSPR) , YD! I ) 

GO TO 925 
9086 CONTINUE 
925 CONTINUE 
RETURN 

' 208 FORMAT U4,6X, 2F12.2, 5X, A4, IX , 14HSTAGE HAROHARE ,29X,1 3 ,9X , 13 ,8X, 
l 15 , 7X, F5 ,0) 

209 FORMAT (14 ,6X , 2F1 2. 2, 5X, A4, IX , 15HSHARED HAROHARE, 28X, 1 3,9X , 1 3 ,8X , 

1 I 5, 7X ,F5 ,0 ) 

210 FORMAT ( I4,6X,2F12«2,5X,15H INTEGRATION OF ,A4,5H AND ,A4, 

1 9H HARDWARE, 11X,13»9X, 13, 8X,I5,7X,F5.0) 

211 FORMAT ( 25H1QUANT 1 T I ES BRANCHEO UP0N/1H0 , 6HNUMBER ,5X , 1 1H0EVEL0PHENT 
*, 2X, 10H SUST AIN IN G,50X,10H YEAR AVAIL ,'2X,9HLAST YEAR,2X,9HDEV STAR 
*T, 2X, 12HDEV DURATION//) 

9074 FORMAT 1 14 , 6X , 2F12.2 ,5X , A4, IX, 9HSTAGE ETR,34X, 1 3,9X, I3.8X , 15 ,7X, 

* F5.0) 

9075 FORMAT- ( I4.6X , 2F 12 ,2,5X , A4, IX, 9HSTAGE WTR, 34X, 13, 9X , 13, 8X , 1 5 ,7X, 

* F5.0) 

9077 FORMAT ( I4,6X,2F12.2,5X,A4, IX, 10HSHARED ETR, 33X, 1 3»9X, 13 ,'8X , 15, 

* 7X , F5.0) 

9078 FORMAT |I 4, 6X , 2F 12.2 ,5X, A4, IX, 10HSHARE0 WTR, 33X, 13 ,9X* 13 *8X « 15*7X , 

« F5.0) 

9080 FORMAT. I 14 ,6X , 2F1 2. 2 , 5X , 15H INTEGRATION OF ,A4f5H AND ,A4,4H ETR, 

1 16X,I3,9X,i3,8X,I5,7X,F5.0> 

9081 FORMAT (14, 6X , 2F12.2 ,5X , 15H1NTEGRAT ION OF ,A4,5H AND ,A4,4H HTR, 

1 16X,I3,9X,I3,8X,I5,7X,F5.0) 

9083 FORMAT II 4, 6X , 2F 12 . 2 ,5X , A4, IX, 14HSHARED AT PAD ,A*,25X, 13, 9X , 13, 

* 8X,I5,7X,F5.0) 

9085 FORMAT (14, 6X, 2F12.2 ,5X,A4, IX, 13HSTAGE AT PAD , A4.26X, I3,9X,I3,8X, 

* I5,7X,F5.0) 

9087 FORMAT II4,6X,2F12.2,5X,15HINT6GRATI0N OF ,A4,5H AND ,A4,1X, 

1 7HAT PAD ,A4,8X, I3,9X,I3,8X,I5,7X,F5.0) 

END 


****** END OF COMPILATION ****** 



DEFAULT OPTION! S ) USED 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LI ST, XREF.MAP.NCAL 
VAR I ABLE OPTIONS USED - SI ZE-I 126976 ,24576 ) 

IEHDOOO NAME MUX02PNI R ) 

IEW0461 IBCOH- 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAHE ORIGIN LENGTH 


NAME LOCATION NAHE LOCATION NAHE LOCATION 


NAHE 


PR I NT I 


00 108 A 


SAVDMP 
SAVE I 
SAV3 
SAVA 
SAVALL 


1090 I ABC 
2550 FCA 
3518 980 
3E98 3188 
7020 3A1C 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

41CK 

SAVOMP 

SAVDMP 

414 

SAVE1 

SAVE1 

418 

SAV3 

SAV3 

41C 

SAVA 

SAVA 

420 

SAV4 

SAV4 

424 

SAVA 

SAVA 

428 

SAVALL 

SAVALL 

42C 

SAVALL 

SAVALL 

430 

IBCQM= 

' 5UNRES0LVED 




ENTRY ADDRESS 

OO 





TOTAL LENGTH 

AA40 






»**»H0X02PN NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0A61 WARNING - SYMBOL PRINTED IS AN UNRESOL VEO EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


(17) OS/360 FORTRAN H 


DATE 71.084/16.17.16 


ISN 

ISN 


0002 
000 3 


COMPILER OPTIONS - NAME" MAIN, 0PT=02,L1NECNT=44, SOURCE, BCD, NOLI ST, NODECK .LOAD, NOHAP.NOEDIT, 10, NO 
SUBROUTINE REUSEI 

C ESTIMATE NUMBER OF INITIAL UNITS TO PURCHASE 
C 


INTEGER*2' - NU,NBY ,MOOE , NQ8 , VEH,NHULT , NONrEC ,NYD, I S,MAT , L YR ,LETT , 
1 • L YD, MIN 


ISN OOOA 


ISN 0005 


ISN 0006 


ISN 0007 
ISN 0008 
ISN 0010 
ISN 0011 
ISN 0012" 
ISN 0013 
ISN 001A 
ISN 0015 
ISN 0016 
ISN 0018 

ISN 0019 
ISN 0020 
ISN 0021 
ISN 0022 
ISN 0023 
ISN 002A 

ISN 0026 
ISN 0027 
ISN 0028 
ISN 0029 

ISN 0031 
ISN 0032 
ISN 0033 
ISN 003 A 


COMMON/SAVSAR/ POJ ( 3) , SRJ ( 3,3 1 ,NU( AO) ,NBY(AO) ,N0B{ AO) ,R INTI AO) , 

1 PLCINTI AO) ,XLT( AO), PLCT1A0) , DPP I AO 1 , TATI AO) »TAHT(50> , SR 140, 3 I , 

2 HODE (-40,3) »PLC 1 40, 3 ) f ' 

COMMON/S AVA LI /LCK, SLO»NM,NEXD, NV, NUMD, MYRS ,LZOPT 1 8 ) ,NYD( A6) »MAT I A6 
1) ,SUST(A6) ,DS(A6> ,LYDIA6) ,YD(A6) , 1 S ( 102 ) , LYR( 252 ) , LETT( 250 ) , 

2 MIN(250),YRLM(250) ,VEHIA,60) ,NONREC( 120,20) ,NMULT(60, 50) . 

COMMON/SCRACH/ 1 1 ,NUS t AO) ,MSAVE (40) , 1 SAVE ( AO) ,KLUE(40), 

1STGYHW I AO, 20),RINTMXI40,20) ,STGMAX( AO, 20,2 ) , STGYTRI AO, 20,2 1 , 

2 R I NTYR ( AO, 20) , OUM ( 1 0A7 ) 

C 

) - II 

IFIKLUEI I ) .GT.O) GOTO 100 
NU(I) = - MAXO I2,-NUS(I) -1) 

RETURN 
100 TL = 0.0 

YY = TATI I) 

NUCI) = -2 

00 -200. J = 1 ,MYRS 

IFI STGYHWI I, J) .LT..001) GO TO 200 

TAM = 365. /STGYHWI I, J) 

C TAM = MAX ALLOWABLE AVERAGE TA TIME IN DAYS FOR YEAR J 
XX = YY 

TL ■ TL C STGYHWI I,J) 

YY = TATII)*ITL)**PLCTII) 

YY = 2.0 *YY - TATI I) 

TAA = ,5»IXX € YY). 

IFINOBIII.EO.I) GO TO 120 

C CALCULATE AVERAGE MISSION TA TIME FOR ORBITER ONLY 
COUNT =0.0 
TOT = 0.0 
DO 110 K = 1 ,NH 
IFILYRIK) .NE. J) GO TO 110 
C CHECK IF STAGE I IS TOP STAGE .OF VEHICLE HK 
MK = MINI K) 

00 105 II = 1, A 
111 = 5-11 

IF f VEHI 111 , MK) .EQ.O) GO TO 105 
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I SN 0036 1 FI VEH till ,MKI.E0.1) GO TO 106 

ISN 0038 GO TO 110 

ISN 0039 105 CONTINUE 

ISN 0060 106 NETT = LETTIK) 

ISN 0061 XN = NMULT ( MK»NETT I 

ISN 0062 COUNT = COUNT C YRLMIK)*XN 

ISN 0063 TOT = TOT £ TAHTI NETT I*XN*YRLHIK ) 

ISN 0066 110 CONTINUE 

ISN 0065 TAA = TAA 6 .5 6 TOT/COUNT 

ISN 0066 120 IF(TAH.GE.TAA) GO TO 200 

ISN 0068 NROY - TAA/TAM C .9999 

ISN 0069 NX » NUIU 

ISN 0050 NU(I) - MI NO I — NRQ Y t NX I 

ISN 0051 200 CONTINUE 

C COMPARE NUMBER REQUIRED BY LIFETIME TO NUMBER REQUIRED BY TAT 
ISN 0052 X = - NUIII 

ISN 0053 IF 1 1 X*XLT ( I ) ) .LT.TL) NUIII = - INTI TL/XLTI 1 ) C .9999] 

ISN 0055 RETURN 

ISN 0056 END 


****** ENO OF COMPILATION ****** 


F86-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, MAP, NCAl 

VARIABLE OPTIONS USED - SIZE*! 126976, 265T6I DEFAULT OPTIONISI USED 

1EWOOOO NAME MOX02RSIRI 


IEW0461 

FRXPR= 



CROSS REFERENCE table 




CONTROL 

SECTION 


ENTRY 





NAME 

ORIGIN 

LENGTH 

NAME 

LOCATION NAME LOCATION 

NAME 

LOCATION 

NAME 

REUSE! 

00 

608 






SAVSAR 

4D8 

A58 






SAVALL 

F30 

3A1C 






SCRACH 

6950 

6A60 







LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

128 

SAVSAR 

SAVSAR 

12C 

SAVALL 

SAVALL 

130 

SAVALL 

SAVALL 

136 

SCRACH 

SCRACH 

138 

SCRACH 

SCRACH 

13C 

SCRACH 

SCRACH 

160 

FRXPR* 

SUNRESOLVED 




ENTRY ADDRESS 

00 





TOTAL LENGTH 

B3B0 






****H0X02RS NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 

IEW0661 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 
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! 171 


OS/360 FORTRAN H 


OATE 71.084/16.17.50 


1SN 0002 

ISN 0003 
ISN 0004 
JSN 0005 
ISN 0006 
ISN 0007 
ISN 0008 

ISN 0009 


ISN 0010 


.ISN 0011 


COMPILER OPTIONS - NAME= MAIN ,0PT=02, UNECNT = 44, SOURCE, BCD, NOLIST, NODECK .LOAD, NOMAP.NOEDIT, ID, NO 
SUBROUTINE REVLUS 

CTHIS SUBROUTINE RECALCULATES THE APPROPRIATE VALUES FOR RECURRING COSTS 
INTEGER H, PROG 

INTEG6R*2 LTR, VEH.NMULT ,NONREC ,NVD, IS, MAT, LYR , LETT, LVD, MIN 
LOGICAL SKIP 
REAL NPERPD 

COMMON/SAVRT/RVAKI 20.50) 

COMMON/ SAV3/GR0, GUESS, LP.NSOL ,MSOL,NP,HOS,NMI$,NSPR .NPERPO ( 30), 

1 PAD!30),LTR(50>,PLRt50>,RDIST!56,4) ,ALPI(4,601 
COHMON/SAVALL/LCK ,SLQ ,NM, NEXD.NV.NUMD.MYRS , LZOPT ( 8) ,NYO! 46 > ,MAT (46 

1) .SUSTI46) .OS (46) ,LVD( 46) .VDI46) , ISt 102 ) , LYR ( 252) , LETT { 250 ) , 

2 MINI 250) . YRLMI 250) .V6H(4,60) .NONREC 1 120,20) ,NMULT( 60,50) 

COMHON/VARNCE/KSTAT, VAR I (40) .VARFI50) , VARMI56) ,FMVAR I 2, 30) , 

1 FI VAR (3, 40), PL VAR (3, 56) ,SVAR(5,40> 

C OMMON/ SCR ACH/H,N,NCS, PROG, 1000, 1 ERR, SKI P, HVFLAG, JS .NSCALEI 5 ) , 

1 NSLI 10), TOTAL! 20) ,H 1 20 ! ,Dt 20) , XOUTI 20) ,VOUT ( 20 ) ,RRR 1 20) .YEAR (20! 

2, Y( 20) , KVEH 1(50) , LABEL! 50) .LVARY 170) ,LVO( 70) , I VEHI 70) , LVS 1 70) , 

3 LVSF!80),VNAM!80) ,NOP( 86) ,RF| 86) ,CF 186) ,SF( 86) , FLAGRI 86) , 

4 FLAGS! B6) ,NSSF( 86) ,NSRF( 86) , NSXF 1 86) ,NDSF(86) , SUSTF ( 86 ) ,NLVP 1 86 ) 

5, NSTRRCI86) .NYRSRCI 86) , LNDF 186 1 , NSTRST ( 86 ) .LNDATEI 86 ) .NPR0I90) , 

6 KPROf 90 ) .CSXI90J , LZ! 46) ,RCOSTf 60), KVEH I 60) , IMAGE (830 ) , 

7 XSCHI 10,70) , XLVSUM! 20,50) .RECUR! 20,50) ,DUM( 616),RVX(20),RPLX(20) 


ISN 

0012 



00 33 II = 1,20 

ISN 

0013 



R VX (III = 0.0 

ISN 

0014 


33 

RPLX! I I ) = 0.0 

ISN 

00 15 



L = PROG 

ISN 

0016 

' 


NSTRRCILI = 100 

ISN 

1)017 



NYRSRCfL) = 0 

ISN 

0018 



LNDATE! L ) = 100 

ISN 

0019 



IF (NLVP(L).EO.O) GO TO 21 

ISN 

0021 



00 34 LC = 1,20 

ISN 

00 22 


34 

RECUR ( LC,L) = 0.0 

ISN 

0023 



IJ = NLVP(L) 

ISN 

0024 



H = LVARY! LI 

ISN 

0025 



IB = LVSIH) 

ISN 

0026 



IF 1 I6.LT.4I IB = 4 

ISN 

0028 



DO 38 K=l,IJ 

ISN 

0029 



IF (LVO(H).EO.O) GO TO 38 

ISN 

0031 



IA = LVSIHI-3 

ISN 

0032 



IF UA.LT.11 1A=1 

ISN 

0034 



IK «* LVDIH) 

ISN 

0035 



ILV = IVEH(H) 

ISN 

0036 



DO 37 J=I,IK. 



C 

RCST = VEH. RECURRING COST/YR. BY MISSION 

ISN 

0037 



RCST = XSCHI J,H)*RCOSTI ILV) 



c 

RCPL = PAYLOAD RECURRING COST/YR. 

ISN 

0038 



RCPL = XSCHI J,H)*PLR(L) 

ISN 

0039 



00 36 1=1,4 

ISN 

0040 



II = LVS(H)-IB6IGJ-1 

ISN 

0041 



IE tll.LT.l) 11=1 

ISN 

0043 



IFIKSTAT.EO.O.OR.SKIP) GO TO 36 

ISN 

0045 



RVXI II ) = RVXI II ) G RCST 

ISN 

0046 



RPLXI II) = RPLX! II) G RCPL 



c 

DISTRIBUTE' RECURRING COST BY YEAR 

ISN 

0047 


36 

RECUR I 1 1", L ) = RECUR! II, L ) GALPI ( I , 1 LV) *RCST 6 

ISN 

0048 


37 

CONT INUE 

ISN 

0049 



IFIKSTAT.EO.O.OR.SKIP) GO TO 42 

ISN 

0051 



VTOT = 0.0 

ISN 

0052 



DO 39 JX = 1,4 

ISN 

0053 



KX = VEH! JX, 1 LV) 

ISN 

0054 



IF(KX.EQ.O) GO TO 40 

ISN 

0056 


39 

VTOT = VTOT G SVAR( 1,KX> 

ISN 

0057 



JX = JX £ 1 

ISN 

0058 


40 

XJX = JX - 1 

ISN 

0059 



DO- 41 IX = 1,20 

ISN 

C060 



RVAR ( I X , L ) = (VTDT*RVX(IX))/XJX 6 PLVAR! 

ISN 

0061 



IF!RVAR(IX,L).GT..001)RVAR! JX,L) = RVARUX.L) 

ISN 

0063 


41 

CONTINUE 

ISN 

00 64 


42 

NYRSRC! L ) * MAXO 1 NYRSRC! L ) ,11) 

■ISN 

0065- 



NSTRRCILI = MINO (NSTRRC! L) , I A) 

ISN. 

00 66 



LSUB = LNDATE! L) 

ISN' 

0067 



LVSUB = LVSIH) 

ISN 

0068 



LNDATE(L) = MINO! LSUB, LVSUB) 

ISN 

0069 


38 

H = H G 1 



c 

NYRSRC C NSTRRC = O' FOR DEVELOPMENT' PROGRAM: 

ISN 

0070 . 


21 

IF ! NSTRRC! L ) .EO. 100) NSTRRC! L) = 0 

ISN 

0072 


99 

RETURN 

ISN 

0073 



END 


***♦<■* END OF COMPILATION #***»* 
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F88-LEVEL 

IEWOOOO 


LINKAGE EDITOR OPTIONS SPECIFIED LIST, XREF, WAP, NLAL 
VARIABLE OPTIONS USED - SI ZE* [ 126976, 24576) 

NAME M0X02RVIR) 


DEFAULT OPTIONIS) used 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LFNGtH 

KEVLUS 

00 

662 

SAVRT 

668 

FAO 

SAV3 

1608 

980 

SAVALL 

IF 88 

3AIC 

VARNCE 

59A8 

AOC 

SCRACH 

6488 

6 A60 


NAME LOCATION NAME LOCATION NAME LOCATION NAME 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


128 

SAVRT 

SAVRT 

130 

SAVALL 

SAVALL 

138 

VARNCE • 

VARNCE 

140 

SCRACH 

SCRACH 

148 

SCRACH 

SCRACH 

150 

SCRACH 

SCRACH 

ENTRY ADDRESS 

00 

TOTAL LENGTH 

CEE 8 



****M0X02RV NOW REPLACED IN DATA SET 


LOCATION REFERS TO SYMBOL IN CONTROL SECTION 


I2C SAV3 SAV3 

134 SAVALL SAVALL 

13C SCRACH SCRACH 

144 SCRACH SCRACH 

14C SCRACH SCRACH 


(17) 0S/360 FORTRAN H DATE 71,084/16.40.54 

CflHPI LER OPTIONS - NAME= MAIN, 0PT=02, L INECNT=44, SOURCE , BCD, NOL 1 ST, NOOECK ,LOAD,NOMAP,NOEOI T, ID, Nl 
ISN 0002 SUBROUTINE SHIFTS 

c this subroutine shifts the development start dates and duration in order 
C TO ACHIEVE A SMOOTHER LEVEL OF SPENDING 
C 

ISN 0003 DOUBLE. PRECISION NAME 

ISN 0004 LOGICAL SKI P, ACCL, EXT 

ISN 0005 REAL LEVEL 

ISN 0006 INTEGER H,PROG 

ISN 0007 INTEGER*2 YDPL ,NSYR,NSFX»NRFX ,NYRSST,NSTRFX, NPROG, KPROG, 

1 KOOE ,NYRSFX »KODEM, KOOESP 

ISN 0008 COMMON/ SAV2 /EXT , ACCL,KNSTG,KNFAM,KNC1 »KNP,KNM I S , OF LAG, TREF.NCSTR , 

1 PMAX , PM IN , I STRT , IF IN, MAX I TR,MI TR , KOOESP ( 6) , TITLEI 10 ), LEVEL ( 20) , 

2 CNTRVL (20),FIXED(20),KODEM(50),NSYRI50),NSFX(50) , NAME! 56) , 

3 YDPLI56) ,NRFX(50) .NYRSSTI84) ,NSTRFX(84) ,NYRSFX(84) ,SUS ( 84 ) ,C (84 ) 

4, RI8A), S( 84},CS(90) , NPROG ( 90 ) , KPR0G1 90) , KODFI90) 

ISN 0009 COMMON/SCRACH/M,N,NCS,PROG,IODO, 1 ERR, SK IP.MYFLAG, JS , NSCALE (5) » 

1 NSL( 10) .TOTAL! 20) ,W 120) ,0(20) ,XOUT( 20) ,VOUT( 20) ,RRR( 20) , YEAR(20) 

2, Y! 201 , KVEH 1(50) .LABEL! 50 ) ,LVARY( 70) , LV0(70) , I VEHt 70) , LVS(70) , 

3 LVSF I 801 , VNAMI 80) .N0P186) , RF( 86 ) ,CF (86 ) , SFf 86) ,FLAGR( 86) , 

4 FLAGS 186) .NSSFI86) ,N$RF! 86 1 , NSXF ( 86) ,N0SF(86) ,SUSTF( 86 ) ,NLVP (86 ) 

5, NSTRRC! 86 ) *NYRSRCt 86 ) ,LNDF (86 ) , NSTRST 186) ,LNDATE(86) ,NPRO (90 ) * 

6 KPRO(90) ,CSX(90) ,LZI46) ,RCOST( 60), KVEH( 60) , IHAGEf 830 ) , 

7 XSCH(10,70) ,XLVSUM( 20,50) .RECUR I ZO, 50) , DUM( 656) 

C 

ISN 0010 110 I ODD = 1000 6 l 

ISN 0011 GO TO (140,150,160,168,170,178,180), IODD 

ISN 0012 140 STR = S(PROG) 

ISN 0013 S ( PROG) = STR £ 1.0 

ISN 0014 145 CALL CONSTR 

ISN 0015 . IF (IERR.NE.O) GO TO 110 

ISN 0017 14 MYFLAG = 1 

ISN 0018 RETURN 

ISN 0019 150 S(PROG) - STR - 1.0 

ISN 0020 IF ( S( PROG) . LT.TREF) GO TO 110 

ISN 0022 GO TO 145 

ISN 0023 160 SI PROG) = STR 

ISN 0024 IF(R(PROG).LE. .0001. OR. CF(PROG).LE. .0001) GO TO 190 

ISN 0026 CKR = R(PROG) 

ISN 0027 CKC = C(PROG) 

ISN 0028 CKS = SUS (PROG) 

ISN 0029 NOS = NYRSST ( PROG) 

ISN 0030 NSS = NSTRSTIPROG) 
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ISN 00 31 
ISM 0032 
ISN 0033 
ISN 0034 
ISN 0035 
ISN 0036 
ISN 0037 
I SN 0038 
ISN 0039 
ISN 0040 
ISN 0042 
ISN 0043 
ISN 0044 
ISN 0045 


NSR = NSTRRCt PROG) 

NYRC = NYRSRCIPROG) 

NSX = NSTRFXIPROG) 

NSO = LNDATE(PROG) 

RIPROGI = CKR £ 1.0 

NSTRST(PROG) = I NT t 2. 0*R I PROG 1/3 .0 G .999) 

NSTRRCI PROG) = NSR G 1 

NSTRFXIPROG) = NSX G 1 

LNDATEIPROG) = NSO G 1 

IF (NLVPtPROG).EO.O) GO TO 165 

IJ = NLVPtPROG) 

H = LVARYI PROG) 

00 16? 1=1, IJ 
NSLII) = LVSIH) 


ISN 0046 LVSIH) » LVSIH) G 1 

ISN 0047 162 H = H G 1 

ISN 0048 00 34 LC = 1,20 

ISN 0049 34 RRRILC) = RECUR I LC, PROG ) 

ISN 0050 164 CALL REVLUS 

ISN 0051 165 CALL CONSTR 

ISN 0052 IF I IERR.NE.O) GO TO 110 

ISN 0054 IFIRF1PRDG) -RIPROG)) 9010,9020,9030 

C DEVELOPMENT DURATION IS STRETCHED OUT 
ISN 0036 9010 CIPRUG) = 1,8 G .2*RI PROG) /RF I PROG) ) * CFIPROG) 

ISN 0056 GO TO 9050 

ISN 0057 9020 CIPROG) = CFIPROG) 

ISN 0058 GO TO 9050 

' C DEVELOPMENT OURATION IS ACCELERATED - CRASH PROGRAM 

ISN 0059 9030 X = AINT I.59RFIPR0G) G .99) 

ISN 0060 IFIRIPROGl.LT. X) RIPROG) = X 

ISN 0062 CIPROG) = CFIPROG) * EXP 111. -R( PROG) /RFI PROG) ) / (R(PROG)/ 

1 RFI PROG ) - .41) 

ISN 0063 9050 IF I NYRSST I PROG) . EO. 0) GO TO 14 

ISN 0065 NYRSST IPROG) = NDSFIPRDG) - LNOFIPROG) G LNOATEI PROG) - 

1 NSTRST I PROG) G NSSFIPROG) 

C THE FOLLOWING DEFN. OF NYRSST IS THE ORIGINAL 
C NYRSST I PROG) = RIPROG) /RFI PROG)PFLOATI NDSFI PROG) I G.001 


ISN 

0066 


X = NDSFIPROG) 



ISN 

0067 


XI = NYRSSTIPROG) 



ISN 

0068 


SUS IPROG) = Cl PROG) /CFI PROG ) *SUSTFi 

ISN 

0069 


GO TO 14 



ISN 

0070 

168 

IFI.NDT.EXT) GO TO 110 



ISN 

0072 


SIPROG) = STR - 1.0 



ISN 

00 73 


IFISIPROGI.LT. TREF) GO 

TO 

110 

ISN 

0075 


IFINLVPIPROG) .EO.O) GO 

TO 

165 

ISN 

0077 


GO TO 164 



ISN 

007 8 

170 

SIPROG) = STR 



ISN 

0079 


IF I CKR. EO. RFI PROG), AND. 

.NOT.ACCLI 1 

ISN 

0061 


RIPROG) = CKR - 1.0 



ISN 

0082 


NSTRSTI PROG) = INTI2.0*RIPRDG)/3.0 G 

ISN 

0083 


NSTRRCI PROG) = NSR - 1 



ISN 

0084 


NSTRFXIPROG) = NSX - 1 



ISN 

0085 


LNDATE 1 PROG ) = NSO - 1 



ISN 

00 86 


IF (NLVP(PROG).EO.O) GO 

TO 

165 

I SN 

0088 


IJ = NLVPI PROG) 



ISN 

0089 


H = LVARYI PROG) 



ISN 

0090 


DO 172 1=1, IJ 



ISN 

0091 


LVSIH) = NSLII) - 1 



ISN 

0092 

172 

H- = H G 1 



ISN 

0093 

175 

GO TO 164 



ISN 

0094 

178 

IFI.NOT.EXT) GO TO 110 



ISN 

0096 


SIPROG) = STR G 1.0 



ISN 

0097 


IFINLVPIPROG). EO.O) GO 

TO 

165 

ISN 

0099 


GO TO 164 



ISN 

0100 

180 

SIPROG) = STR 



ISN 

0101 


RIPROG) = CKR 



ISN 

0102 


CIPROG) = CKC 



ISN 

0103 


SUS (PROG) = CKS 



ISN 

0104 


NYRSSTIPROG) = NOS 



ISN 

0105 


NSTRST IPROG) = NSS 



ISN 

0106 


NSTRRCIPROG) = NSR 



ISN 

0107 


NYRSRC I PROG) = NYRC 



ISN 

0108 


NSTRFXIPROG) = NSX 



ISN 

0109 


LNDATE I PROG) = NSO 



ISN 

0110 


IF INLVPIPROG) .EQ.O) GO 

TO 

190 

ISN 

0112 


IJ = NLVPI PROG) 



ISN 

0113 


H = LVARYI PROG) 



ISN 

0114 


DO 182 1=1, IJ 



ISN 

0115 


LVSIH) = NSLII) 



ISN 

0116 

182 

H = H £ 1 



ISN 

0117 


DO 36 LC = 1,20 



ISN 

0118 

36 

RECUR ILC, PROG) = RRRILC) 


ISN 

0119 

190 

HYFLAG = 0 



ISN 

0120 


RETURN 




GO TO 180 
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ISN 0121 


END 


****** end OF COMPILATION ****** 


F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED L 1ST, XREF,MAP,NCAL 

VARIABLE OPTIONS USED - SIZE*! 126976,265761 DEFAULT OPTIONIS) USEO 

I EM 0000 NAME MOX02SHIR) 

IEW0661 EXP 
1EW0661 CONSTR 
IEW0661 REVLUS 


CROSS REFERENCE TABLE 


CONTROL SECTION 


ENTRY 


NAME 

SHIFTS 

SAV2 

SCRACH 


DR I G IN 

00 

758 

1738 


LENGTH 

756 

FEO 

6A60 


NAME LOCATION NAME LOCATION NAME LOCATION 


NAME 


LOCATION REFERS 

TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

130 

SAV2- 

SAV2 

136 

SCRACH 

SCRACH 

138 

SCRACH 

SCRACH 

13C 

SCRACH 

SCRACH 

160 

SCRACH 

SCRACH 

166 

SCRACH 

SCRACH 

168 

EXP 

. SUNRESOLVED 

16C 

CONSTR 

SUNRESOLVED 

150 

REVLUS 

^UNRESOLVED 




ENTRY ADDRESS • 

00 





TOTAL LENGTH 

8198 






=***M0X02SH NOW REPLACED IN DATA SET 


DIAGNOSTIC HESSAGE DIRECTORY 


I EW0661 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED 
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0001 


0002 

0003 

0004 

0005 

0006 


0007 

0008 


0009 


0010 

0011 


0012 

0013 


0014 

0016 

0016 

0017 

0018 

0019 

0020 


FORTRAN IV 

0021 
00 22 

0023 

0024 
0025' 

0026 
0027 
00 28 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 
00 51 

0052 

0053 

0054 

0055 

0056 
00 57 
0058 


SUBROUTINE SMOTHSIPRGLV, BLANK) 

C BUDGET SMOOTHING PROGRAM - R.E. SLYE 
C MODIFIED BY C.J. GOLDEN 
DOUBLE PRECISION NAME 
LOGICAL SKIP, OUT, ACCL, EXT 
REAL LEVEL, NPERPD 
INTEGER PROG,H 

INTEGERS LTR , YDPL »NSYR ,NSFX »NRFx,NYRSST ,NSTRFX,NPROG,KPROG» 

1 KODF ,NYRSFX,KODEM,KODESP,FINISH,NSTG,NFML,NFMU,KO0S,MAS,LABS, 

2 LABF,LAB!,VEH,NMULT,NONREC,NYD, IS,MAT,LYR,LETT,LY0,M1N 
COHMUN/SAVER/ RFIXDI 12,84) 

COMMON/SAVE1/ FINISH,NSTG,NCI,ILY,LABF(30),LABS(40) ,LABI( 40), 

1 NFMLI40) .NFMUI40) ,K0DS(40) , STS 141 1 , S T G 1 40 ) , VLRI 50 ) ,HPRI 50 ) , 

2 RPLM( 50 ) , MAS 1 40 , 3 ) , RXDI12,50) 
COMMON/SAV2/EXT,ACCL,KNSTG,KNFAM,KNCI,KNP,KNMIS,JFLAG,TREF,NCSTR, 

1 PMAX, PMIN , I STRT , IFI N,MAX I TR,M ITR ,KODESP! 6) , TITLE! 10) , LEVEL! 20) , 

2 CNTRVL 120) ,FIXEDI20),K0DEHI50),NSYR( 50) ,NSFX(50) ,NAME< 56), 

3 YDPLI 56),NRFX(50),NYRSSTI84),NSTRFXI84), NYRSFX ( 84) ,SUS t 84) ,C 1 84 ) 

4, R<84), S( 84) ,CS I 90 ) , N PROG 1 90 ) ,KPROGI 90) , K0DEI90) 
COMMUN/SAV3/GRO,GUESS,LP,NSOL,MSOL,NP,MOS,NMIS,NSPR,NPERPD(30) , 

1 PAD! 30) ,LTR(50) ,PLRI 50) ,RDISTI 56,4) , ALP I (4,60) 

COMMON/ SAVALL /LCK, SLO, NM,NEXD,NV, NUMD,MYRS ,L ZOPT ( 8) ,NY0(46) , HAT (46 
1 ),SUST(46) , OS (46 ) , LYD (46) ,YD(46),IS( 102) ,LYR( 252) , LETT ( 250) , 

2 MIN(250),YRLM1250) ,VEH( 4,60 ) .NONRECI 120 ,20) ,NMULT(60,50) 
C0MMON/VARNCE/KSTAT,VARI(40) ,VARF(50),VARM( 56) ,FMVAR( 2,30) , 

1 F I VAR t 3,40 ) , PLVAR (3,56), SVAR 15, 40) 

COMMON/SCRACH/M,N,NCS,PROG» IODD, IERR,SKIP,MYFLAG,JS,NSCALE(5), 

1 NSL( lO), TOTAL (20) ,W( 20) ,D( 20 ) ,XOUT( 20) , VOUT( 20) ,RRR(20) , YEAR (20) 
2, Y( 20) ,KVEHI(50) , LABEL! 50) ,LVARY< 70) , LVD( 70) , I VEHI 70 ) ,LVS(70 ) , 

3 LVSF< 80) , VNAM( 80) ,NOP( 86) ,RF ( 86 ) ,CF ( 86) ,SF( 86 ) , FLAGRI 86) , 

4 FLAGS! 86), NS SF( 86) ,NSRF( 86) ,NSXF ( 86) , NDSF 1 86) ,SUSTF{ 86) ,NLVP(86) 

5, NSTRRCI 86) ,NYRSRC (86) ,LNDF I 86) ,NSTRST (86) ,LNDATE ( 86 ) ,NPRO (90 ) , 

6 KPRO (90),CSX!90),LZ(46) ,RCOST(60 ) ,KVEH( 60 ) , IMAGE (8301, 

7 XSCH( 10,70) , XL VSUH120, 50) ,RECUR( 20,50) ,KODX( 90) ,NPR0D(90) , 

8 KPRODI 90 ) , KODD ( 90) , XMODE( 20) ,UB( 20) ,DUM| 256) 

DIMENSION PRGLV(4) 

EQUIVALENCE ( LS, LEVEL 1 1 ) ) , ( LF, LEVEL! 2) ) 


c 

DATA ASTR 
DATA ZERO 
DATA FLET 
DATA MLFT 
DATA ULET 

/1H*/ 

/1H0/ 

/1HF/ 

/1HM/ 

/1HU/ 




G LEVEL 

1 , MOD 4 


SHOTHS 

DATE « 71084 

16/41/24 


PAGE 00 


GO TO 18 


IODD = 0 
NSCALE(l) = 1 
NSCALEI2) = 0 
NSCALEI3) = 0 
NSCALEI4) = 0 
NSCALEI5) = 0 
IFI FINISH. GT.l) 

PMAX = 5000. 

PMIN = 1500. 

ACCL = TRUE IMPLIES USE ACCELERATION OPTION 
ACCL = .TRUE. 

EXT = TRUE IMPLIES USE EXTENSION OPTION 
EXT = .TRUE. 

DO 5 1=1,10 

5 TITLE (I) = BLANK 
DO 6 I = 1,20 
CNTRVL ( I ) = BLANK 

6 FIXED! I ) = 0.0 
HR ITE( 6,399) 

16 CALL INPUT (6HT1TLE , TITLE, 6HLEVEL , LEVEL, 6HISTRT ,!STRT, 

X 6HIFIN , I FIN, 6HHAXI TR,HAX1TR,6HNCSTR ,NCSTR,6HNPR0G ,NPROD, 
X 6HKPR0G ,KPR0D,6HK0DE ,K0D0,6HCS ,CS,6HFIXED .FIXED, 

X' 6HPMAX , PMAX , 6HPMIN ,PMIN, 6HACCL , ACCL, 6HEXT ,EXT) 

DO 550 I * l.NCSTR 
NPROGI I) = NPRODt I ) 

KPROGI I ) = KPRODI I ) 

550 KODEI I) = KDDDI I) 

00 79 I = 1,20 

79 FIXED! I) = FIXED! I )*( 1, + GR0)**U-1) 

IFINCSTR.EO.O) GO TO 18 
DO 8 I = l.NCSTR 
DO 2 II 1 l.NMIS 

IFINPROGI D.EO.KODEMI ID) GO TO 3 - 

2 CONTINUE 
GO TO 36 

3 NPROGI 1 ) - II 

36 IFI KPROGI I ) .EQ* 0) GO TO 8 
DO 1 II = l.NMIS 

IF I KPROGI I ) .EQ.KODEMI ID) GO TO 4 
1 CONTINUE 
GO TO 8 

4 KPROGI I ) = II 
8 CONTINUE 
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0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 
0069 
00 70 
0071 

00 72 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 
,0100 
"0101 

FORTRAN IV 

-0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

01 11 
0112 

01 13 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 ' 
0122 

0123 

0124 

0125 

0126 
Cl 27 
0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 


1FINSPR.E0.01 GO TO 18' ‘ 

00 510 I =- It NCSTR - 
DO 502 II = l.NSPR 

1 FINPROGI I ) .60. NODES PI ID) GOTO 503 

502 CONTINUE 
GO TO 37 

503 NPROGII) « II + NMIS 
37 IFtKPROGIIl.EO.O) GO TO 510 

DU 501 II = l.NSPR 

I F IK PROGt I I .EO.KODESPI ID) GO TO 504 
501 CONTINUE 
GO TO 510 

504 KPROGf I > = 11 + NMIS 
510 CONTINUE 

18 IFINCS.EO.O) GO TO 20 
I FINCSTR + NCS.LE.90) GO TO 35 

1000 WRITEI6, 1001) 

1001 FORMAT 1 38H0NUMBER OF CONSTRAINTS HAS EXCEEDED 90) 

NCS r 90 - NCSTR 

35 DO 19 I = 1 t NCS 
NCSTR = NCSTR + 1 
RODE (NCSTR) = KODXI I ) 

CS (NCSTR ) - CSXII) 

NPRQGINCSTR ) = NPROII) 

KPROGI NCSTR) = KPRO(I) 

19 CONTINUE 

20 CALL LISTC 

CALL PL0T1 (NSCALE,7t5 f 15,6) 

T = 1.0 
00 17 1=1,20 
YEARU) = TREF 1- T - 1. 

YU) = AMODI YEAR! I ) , 100. ) 

17 T » T t 1.0 
WRITE (6,903) 

NLV = 0 

DO 33 I = 1 ,NV 
00 31 J = I,M 
IF(IVEHIJ).NE.I) 

NLV = NLV ♦ 1 
KVEHt I) = NLV 
KVEHII NLV) = I 
GO TO 32 

31 CONTINUE - 

G LEVEL 1, MOO 4 
GO TO 33 

32 IA =. VEHIltl) 

IB = VEH(2,1) 

IC = VEHI3.I) 

ID = VEH(4,I) 

WRITE! 6,905) I , STG( 1 A) ,STG( I B I , STGUC) ,STGU D) , RCOSTI I ) 

33 CONTINUE 
DO'335- I = 1 , M 

NX = 'IVEHI I ) 

335 CALL AFRMT INX.VNAMIIl) 

00 39 PROG = 1,N 
39 CALL REVLUS 

22 DO 23 I = 1, N 
NOPt I > = 0 
RF( I ) ■ R I 1 ) 

SFt I 1 = Sill 

cf(i ) = cm 

SUSTFII) = SUS II) 

NOSFII ) = NYRSSTI I) 

NSSFII) = NSTRSTI I) 

NSXFI I I = NSTRFXI 1) - 

LNOFU) = LNDATEU) 

23 NSRFI I ) = NSTRRCII) 

00 24 1 = 1, M 

24 LVSF(l) = LVSIII 
IFIFINISK.GT.il GO TO 21 
DO 25 I = ISTRT , IF1N 

25 CNTRVLI I) = ASTR 

C NOP = 1 IF NO CHANGES ARE ALLOWED IN PROGRAM VARIABLES 

21 DO 26 I = 1, NCSTR 
J = NPROGI I ) 

IF IKOnetl! .E0.8) NOPIJ) =1 

26 CONTINUE 

27 OUT = .FALSE. 

DO 61 PROG = 1,N - - - 

IFINOPIPROG). EQ.il GO TO 61 
CALL CONSTR 

IF I IERR.NE.0) WRITE 16,91) PROG 
61 CONTINUE 

91 FORMAT! ’0WARN1NG - CONSTRAINT VIOLATED IN PROGRAM NUMBER', 13) 
DO 300 ITER = l.MAXITR 
I PRNT = 0 

IF I ITER . EO. MAXI TR ) IPRNT = 1 


GO TO 31 


SMOTHS DATE = 71084 16/41/24 PAGE 00 
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0144 


0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 


FORTRAN 


0182 


0183 

0184 


0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 


DO 200 PROG = l.N 

C I ODD INDICATES WHAT TYPE OF CHANGE IS BEING MADE- I0DD=0 INITIALLY 

14 SKIP = t 1PRNT.E0.0. AND, ITER. GT.11.0R. PROG. NE.l. OR. I0D0.NE.0 
IF (SKIP. AND. NOPIPROGI.EO.l. AND. PROG.NE.il GO TO 195 

15 00 30 J= 1 i 20 
TOTAL(J) = 0. 

30 HtJ) = 0. 

IF (SKIP1 GO TO 55 
40 XT - 0. 

ST = 0. 

DO 50 1=1, N 

C FLAGR = * INDICATES A CHANGE IN DEVELOPMENT DURATION 
FLAGRII) = BLANK 

C FLAGS = * INDICATES A CHANGE IN START OATE OF DEVELOPMENT 
FLAGS! I ) = BLANK 

IF (RUl.NE.RFlin FLAGR 1 1 I <* ASTR 
IF ISUl.NE.SFdn FLAGS! 1 1 « ASTR 
X = NYRSSTI 1 1 
ST = ST + SUS1 1 1 *X 

50 XT = XT + C( I) 

WRITE (6,901 TREF, TITLE 
WRITE 16,921 
DO 53 1=1, N 

IF! I .GT.NMIS+NSPR) GO TO 52 
K = NYRSRC! I 1 

IFIK.E0.0.0R.I.GT.NM1SI RECUR! 1,11 = 0.0 

WRITE 16,941 I, NAME! I ),S! II , FLAGS! II ,C! II, R! I 1, FLAGR! 1 1 ,SUS (I), 

X NSTRST! 1 1 .NYRSSTI I I.NSTRRCI II , NYRSRC! II , I RECUR! J,I I,J-1,K1 
GO TO 51 

52 NDM = I - NMIS - NS PR 

WRITE! 6,93) I , LABEL (NDM) , S( 1 1 .FLAGS! I ) , C( 1 ) ,R! 1 1 , FLAGR! 1 1 , SUS 1 1 ) , 

X NSTRST! I) .NYRSSTI 1 1 , NSTRRC! 1 1, NYRSRC I 1 1 

51 K = NYRSFX! I 1 

IF IK.EO.O) GO TO 53 

WRITE ( 6,98 I NSTRFX! 1 1, NYRSFX! J> ,(RFIXD(J,1 1 ,J=1,K) 

53 CONTINUE 

HRITE (6,95) XT, ST 
IF 1ITER.NE.1) WRITE (6,902) 

WRITE! 6,96) YEAR 
WRITE (6,971 

CALL PL0T2 I IMAGE, Y( 16) ,Y!1) ,PMAX,PMIN) 

00 54 1=1,1000 

54 XLVSUM! 1,11 = 0.0 

IV G LEVEL 1, MOD 4 ' SMOTHS DATE = 71084 16/41/24 PAGE 00 


55 CALL TCOSTS ( BLANK, ASTR! 

C 

IF! LS.GT.20.0R.LS.LE.01 GO TO 78 
XL = 0. 

C IF LEVEL! 1) AND (2) ARE INPUT AS INTEGER YEARS, THEN THE PROGRAM 
C TAKES THE AVERAGE SPENDING OVER THE PERIOD ENCOMPASSED BY THESE - 
C YEARS AS THE DESIRED BUDGET LEVEL 
DO 76 I =LS, LF 

76 XL = XL+TOTALII) 

XL = XL/FLOAT! LF-LS+1 I 
DO 77 1=1,20 

77 LEVEL I II = XL 

78 IF (SKIP) GO TO 80 

WRITE (6,99) (H(I),I=1,JS) 

WRITE <6,9901 I F I XED I I ) , 1 = 1 , JS 1 
WRITE (6,991) (TOTAL! I), 1=1, JS) 

WRITE ( 6,993 ) CNTRVL 

WRITE ! 6 , 992 ) I LEVEL ( I ) , 1 = 1 , JS ) 

IF(KSTAT.GT.O) HR ITE ( 6 ,994 ) ( XMODE ! I ) , I = 1,JS) 

IF (KSTAT.GT .0 ) HRITE<6,995> IUB(I), I » 1,JS) 

CALL PL0T3! FLET.Y, FIXED, JS) 

IF(KSTAT.GT.O) CALL PL0T3 1 ULET.Y, US, JS ) 

1FIKSTAT.GT.0) CALL PL0T3 ! MLET ,Y, XMODE ,JS) 

CALL PL0T3 I ZERO, Y .LEVEL, IFI N) 

CALL PL0T3 t ASTR, Y, TOTAL, JS) 

80 SOD = 0 

DO 100 1 = I STRT , IF IN 
SOD = ( TOTAL (I) -LEVEL II) 1**2 + SOD 
100 CONTINUE 

RHS = SORT ! SOD/FLOAT ( I FIN-I STRT+1 ) L 
C SAVEX = RHS VALUE AT BEGINNING OF ITERATION 
IF (PROG. EO.l. AND. IOOO.EO.O) SAVEX = RHS 
IF (SKIP) GO TO 110 

C RMS1 = VALUE OF RMS USING INPUT DATA 
I F ( I TER.EO. 1 ) RMS1 = RMS 
WRITE (6,199) RMS .YEAR! ISTRT ) , YEAR ( I F IN } 

WRITE (6,298) ITER 
WRITE (6,3991 
CALL PLOT 4 (13.PRGLV1 
WRITE (6,4991 

IF1MOS.EO.2.OR.H0S.EQ.3) RETURN 
110 IF (OUT) GO TO 400 
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0218 

0219 

0220 

0221 

0222 

0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 
02 3A 

0235 

0236 

0237 

0238 

0239 
02A0 
02A1 

02A2 

0243 

02AA 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

FORTRAN IV 

0256 

0257 

0258 
02 59 
0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 


IF ( ITFR.EO.HAX ITR ) GO TO 300 

C SAVER = RHS VALUE AT BEGINNING OF PROGRAM CHANGE CONSIDERATIONS 
IF( IODO.EO.OI SAVER - RHS 
IF1RHS.LT. SAVER) GO TO 190 
C 

CALL SHIFTS 
C 

IFIMYFLAG.EQ. 1) GO TO 14 
190 1000 * O 

C SAVER = VALUE OF RHS AT END OF ITERATION 

IF1RMS.LT. SAVER. AND. PROG. EQ.N) SAVER = RHS 
195 IF ( PROG.LT.N) GO TO 200 

IF (SAVEX.NE. SAVER) GO TO 300 
IF UPRNT.NE.O) GO TD 400 
SKIP * .FALSE. 

OUT = .TRUE. 

GO TO 15 

200 CONTINUE 
300 CONTINUE 

WRITE 16,3901 
GO TO 403 

400 WRITE 16,299) 

403 WRITE 16,906) I YEAR 1 1 1 , I = 1, JS) 

WRITE 16,907) 

00 402 1=1, NLV 
XLVTGT = 0.0 
DO 401 11=1, JS 

401 XLVTOT f XLVTOT + XLVSUHtll.I) 

C XL VSUH 111,1) = NUMBER OF LAUNCHES IN YEAR I] FOR VEH. XVEHIII) 

402 WRITE 16,908) KVEH 1 1! ) .XLVTOT , 1 XL VSUH ( 1 1 , 1 1 , II = 1 , JS ) 

IFISAVER.LT. RHS1 - .4) GO TO 404 

WRITE 1 6,909 ) 

909 FORMAT 1 46H0INPUT ASSIGNMENT IS OPTIMUM SMOOTHED SOLUTION) 

GO TO 7 ' 

404 NNMI = NMIS + NSPR 
DO 9 I = l.NNMI 

IFIABSiSU) ♦ Rill - SF1I) - RFC II). GE.. 01) GO TO 13 
IF1NYRSST1 1 1 .NE.NDSF1 1 ) ) GO TO 13 
IF1NLVPI II.EO.O) GO TO 9 . 

IF1LNDATE1 I I.NE.LNDFII ) ) GO TO 13 
I J = NLVPl 1 1 
H = LVARYU) 

00 11 II. = 1,IJ 

G LEVEL 1, HOD 4 SMOTHS DATE = 71084 16/41/24 PAGE 00 

X = LVS1H) 

1F1ABS1S1 II +X-SF1 1 1 -FLOAT (LVSF(H))).GE..Ol) GO TO 13 

11 H = H F 1 
9 CONTINUE 

IF IN. EO. NNMI ) GO TO 7 
NNMI = NNMI +1 
DO 10 I = NNMI.N 

IFIABSISU) + RID - SFl I ) - RF( I 1 ) .GE.OL ) GO TO 13 
IF(NYRSSTII).NE.NDSFU)) GO TO 13 
IFIABS1CF1 I l-Ct I! ) .GE..001 1 GO TO 13 
IFtABSISUSm - SUSTF(I)).GE..001I GO TO 13 
.10 CONTINUE 
7 FINISH = MITR + 1 
GO TU 12 

13 FINISH = FINISH + 1 

12 NCSTR = NCSTR - NCS 
RETURN 

90 FORMAT ' 1 1H1 , 15X, 14HREFERENCE YEAR,F7.0,5X, 10A4 ) 

92 FORMAT (78H0PN NAME- START DEVL YRS SUST SS' SO RS ' RD R 
XECURR ING OR FIXED ITEMS' ' /IH I 

93 FORMAT 113, IX,4HDEV , 1 2 , F6.0, IX, A1,F7.0,F4.0, IX, A1 , F5 .0,414) . 

94 FORMAT, 1 1 3 , 1 X , A6 , F6 . 0, IX, Ai ,F7.0, F4 .0 , IX, Al, F5 .0,414, 12F6.0 ) . 

95 FORMAT 1 20X , 4H ,8X,4H /2X, 5HT0TAL , 1 2X,F6.0,F1 1 . 0) 

96 FORMAT t 1H1 ,30X,47HT0TAL PROGRAM COSTS AND LAUNCH VEHICLE SCHEDULE 

* /6H0YEAR ,4X,20F6.0) 

97 FORMAT 1 8H0PRDGRAK) 

98 FUR MAT ( 44X, 2 14, 12F6,0 I 

99 FORMAT 16H0SUM ,4X,20F6.0) 

107 FORMAT 1 44 X, 214.12F6, 11 

199 FORMAT 16H0RMS = , F8 . 0, 5X , 10HSMOOTHING INTERVAL ,F6.0, 5H THRU. F6.0) 

298 FORMAT 1 1 OHO ITERAT ION, 131 
.299 FORMAT UIX.IIH FINAL CASE) 

390 FORMAT <UX,I6H MAX I TR EXCEEDED ) 

399 FORMAT (1K1) 

499 FORMAT { 1H0,50X,4HYEAR) 

902 FORMAT 1 1H0.40X.34H* INDICATES CHANGE FROM INPUT DATA) 

903 FORMAT 1 1H1 , 30X , 19HRECURR ING COST OATA /1H0, 8X.3HKEY , 10X, 

* 4HNAME ,24X, 9HUN IT COST /1H ) 

905 FORMAT I 10X, 1 2 , 10X.4A4, 10X.F10. 2 ) 

906 FORMAT UH1 ,30X, 35HLAUNCH VEHICLE REQUIREMENTS BY YEAR / 

* 6H0YEAR , 6X , 20F6.0) 

907 FORMAT (11H0LV TOTAL) 

908 FORMAT ( IX, 12, F8.2, 20F6. 1 ) 


D-71 



FORTRAN IV & LEVEL 1. HOD A 


SHOTHS 


DATE ° 71084 
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PAGE 00 


0295 

0296 

0297 

0298 

0299 

0300 

0301 


090 FORMAT (6H FIXED,4X,20F6.0> . 

991 FORMAT ( 6H T0TAL»4X»20F6.OI 

992 FORMAT t 6H LEVEL»4X, 20F6. 01 

993 FORMAT (8X ,20! 5X.A1) >. 

994 FORMAT ! 6H0 H0DE,4X»20F6.0> 

995 FORMAT! 12H 50 PER CENT/8H CONF 10. ,2X,20F6.OI 
END 


FORTRAN IV G LEVEL, 1 1 MOD 4 


SHOTHS DATE * 71084 16/41/24 


PAGE 00 


TOTAL MEMORY REQUIREMENTS 00228C BYTES 



F88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED l IST.NCAL ,MAP 

VARIABLE OPTIONS USEO - SIZE*! 126976,24576) DEFAULT OPTIONISJ USED 

IEWOOOO NAME MUX02SSIR) 

1EW0A61 I HCUM= 

IEW0A61 INPUT 
IEW0A6L FRXPI* 

1EWOA61 LISTC 
IEW0A61 PLOT 1 
IEW0A61 AFRHT 
IEW0A61 REVLUS 
IEW0A61 CONSTR 
IEWOA61 PLOT 2 
1EW0A61 TCOSTS 
IEW0A61 PLOT 3 
IEW0A61 PLOT A 
IEW0A61 SHIFTS 
IEW0A61 SORT 


MODULE HAP 


CONTROL SECTION 


ENTRY 


NAME 

ORIGIN 

LENGTH 

SMOTHS 

00 

22BC 

SAVER 

22C0 

FCO 

SAVE1 

3280 

FCA 

SAV2 

A2A8 

FEO 

SAV3 

5228 

980 

SAVALL 

5BA8 

3A1C 

VARNCE 

95C8 

ADC 

SCRACH 

A0A8 

6A60 


NAME LOCATION NAME LOCATION 


NAHE LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH 10B08 


****M0X02SS NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE 


FORTRAN IV G lEVEL 1. HOD A STGNMI DATE = 

0001 SUBROUTINE STGNMI 

C DETERMINE NUMBER OF COMPONENTS ACTUALLY USED AND ASSOCIATED 
Z RECURRING COSTS 
C 

REAL NPERPO 

INTEGER*2 NU,NBY,MOOE, NOB, F INI SH, NSTG.NFML ,NFMU, RODS .MAS .LABS , 

1 LABE, LAB I ,NPSTG»NPAD,NPFAM, NFS.NP I NIL ,NPINTU, HAPS, HAPF ,MAP I fVEH, 

2 NMULT .NONREC ,NYD, IS ,HAT ,LYR, LETT, LYD.MIN, KOUT.LTR ,N INTYR.NTGYTR, 

3 'MAF.MAIC 

COHMON/SAVSAR/ POJ t 3) ,SRJ ( 3, 3) ,NUI AO) ,NBY( AO) ,NOB < AO I , RINT < AO ) , 

1 PLCINTIAO) ,XLT(AO), PLCT I AO ) , UPP ( AO) ,TAT( AO ) ,TAMT 150) ,SR(A0,3>, 

2 MUDE(A0,3),PLC(A0,3) 

COMMON/ SAVE 1/ FINISH,NSTG,NCI, ILY ,LA8F ( 30) ,LA8St AO) , LABI I AO) , 

1 NFHL(AO) iNFMUt AO) .KODSIAO) ,STS(A1) ,STG ( AO ) , VLR( 50 1 .WPRI50I, 

2 RPLMI SO) ,M AS I AO i 3) , RX0(12,50) 

COMMON /SAV3/GR0, GUESS ,LP ,NSOL,MSOL , NP ,MOS, NMI S ,NSPR » NPERPO ( 30) , 

I PAD13O),LTRI50) .PLRI50) ,RDIST(56,A) .ALPHA, 60) 

COMHON/SAVA/ MAPI 30,3) , MA1C(A0,3), 

* NPADI2.60) ,NPFAM( 30,5) ,NPINTL(30,5) ,NP INTUt 30, 5) , 

1 NFS! A0,A),NPSTG(30, 10 ), HAPS I 30, 10) , HAPF t 30, 10) ,HAP1I30,10>, 

2 PF AMO( 30,5, 2) ,PFAHSI 30,5,2) .PINTS! 30,5, 2), PSTGDI 30,10,2) , 

3 PSTGSI30, 10,2) 

COMMON/ $A V ALL /LCKtSLO,NH,NEXD,NV,NUMD,HYRS,LZOPT I 3) ,NYD{ A6) ,HAT (A6 
U,SUSTIA6),DSIA6),LYD<A6I , Y0( A6 ) , I S ( 102 ) , L YRl 252) , LETTI250 ) , 

2 MINI 250) .YRLMI250) ,VEHIA,60) , NONREC 1 120,20) , NMULT I 60, 50 ) • 

COMMUN/TEMP/VNMI 2, 250 ) , 1 FLAG.KI .NEXT, LOUTj SAVSI AO) ,KOUTI AO) , 

1 NINTYRIA0,2O),NTGYTR(A0,2O,2l , RECUR l 60,20,2) 

COMMON/SCRACH/ 1 1 ,NUSI AO) ,MSAVE( AO) , ISAVEI AO ) ,KLUE I AO) , 

1STGYHWI A0.20) ,R INTHX ( AO, 20 ) ,STGMAX! AO ,'20, 2 ) , STGYTR ( AO, 20 ,2) , 

2 R INTYRIA0.20) ,DUH( 10A7I 
C 


0011 

c 

IF IIFLAG.GE.l) GO TO 621 

FIND MAX NUM OF EACH STAGE AND INTEGRATION POSSIBLE 

0012 


00 661 I = l.NSTG 

0013 


NUSII! = 0 

001A 


DO 661 J=1,MYRS 

0015 


STGYTR t I , J , 1 ) = 0.0 

0016 

- 661 

STGYTR! 1 , J,2) = OiO 

0017 


IFINCI.EO.O) GO TO 665 

0018 


DO 662 I = l.NCI 

00 19 


DO 662 J = 1 ,MYRS 

0020 

662 

RINTYR(I.J) = 0.0 

0021 

665 

DO 6500 I = 1,NM 


0002 

0003 

OOOA 

0005 

0006 

0007 

0008 

0009 

0010 


DIRECTORY 

7108A 16/52/21 


nAhe 


PAGE 00 
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STGNH1 


DATE = -71084 


16/52/21 


PAGE OC 


lFtYRLHt1).LT..001> GO TO 6500 
J = LYR( I) 

JX = LETTI I ) 

K = LTRtJX) 

C MSAVE C ISAVE INDICATE IF THAT STAGE OR INTEGRATION HAS ALREADY BEEN 
C COUNTED FOR MISSION NM 

DO 9003 II = 1.40 
HSAVEIIZ) = 0 
9003 I SAVE (IZ I = 0 

DO 650 II = l.NV 

IF(IT£HIVNMtl,I),tl,l).EQ.O) GO TO 650 
X = NHULTI 1 1. JX) 

DO 649 MS = 1.4 
IA = VFH ( MS. Ill 
IFUA.EO.O) GO TO 650 
IFIMSAVeilAI.EO.ll GO TO 644 
STGYTRt IA.J.K) = YRLHU)*X + STGYTR 1 1 A, J .K) 

MSAVE I IAI = 1 

644 IFINCI. EQ.OI GO TO 649 
IFtMS.EQ.4l GO TO 650 
IFIVEHIHS*1, ID. EQ.OI GO TO 650 
LI = VEHCMS+l.Il) 

DO 645 MI = 1 .NCI 
IFlISAVEtMI I.EQ.1I GO TO 645 
DO 646 KY = 1,4 

IFINFMLtMI l.NE.NFSI IA.KYI) GO TO 646 
DO 647 KZ = 1,4 ’ 

I F ( NFMUI HI) .EQ.NFSI LI ,KZ ) ) GO TO 648 

647 CONTINUE 
' 646 CONTINUE 

GO TO 645 

648 RINTYRtHI.JI = RINTYRIHI.J) + YRLHII)*X 
I SAVEiMI 1 = 1 

645 CONTINUE 

649 CONTINUE 

650 CONTINUE 
6500 CONTINUE 

DO 668 J = l.HYRS- 
DO 668 I = l.NSTG 

668 STGYHVm.J) = STGYTRI I, J.l) + STGYTRI I , J.2 ) 

GO TO 673 

L - 

C DETERMINE NUMBER OF EACH STAGE AND INTEGRATION USEO IN LAST ITERATION BY YEAR 
FORTRAN IV G LEVEL 1, HOD 4 STGNMI DATE = 71084 16/52/21 PAGE 00 



c 

FOR FUTURE PRINT OUT 

0061 

621 

DO 623 K=l,2 

0062 


DO 623 J=1 ,MYRS 

0063 


DO 623 I=1,NSTG 

0064 


STGMAXI I.J.K) = NTGYTR ( I , J , K ) 

0065 


STGMAXt I, J,K> = STGHAXI l.J.KI/10.0 

0066 

623 

STGYTRI I.J.K) = 0.0 

0067 


IF(NCr.EQ.O) GO TO 9000 

0068 


DO 624 J-l ,MYRS 

0069 


DO 624 1=1, NCI 

0070 


RINTHXII.J) = NINTYR(I.J) 

0071 


RINTHXI I, J) = RINTHXl l.JJ/10.0 

0072 

624 

RINTYRI I , J) = 0.0 

0073 

9000 

DO 622 J=1,NM 

0074 


IFtYRLHIJl.LT.. 001) GO TO 622 

0075 


1 = MINI J ) 

0076 


K = LYRtJ) 

0077 


JX = LETTI J) 

0078 


ITR = LTRtJX) 

0079 


X = NHULTII.JX) 

0080- 


00 625 MS = 1,4 

0081 


L » VEHIHS, I ) 

0082 


IF I L.EO.O)' GO TO 622 

0083 


STGYTRI L ,K, ITR ) = STG YTR t L, K , ITR 1 + YRLMIJ)*X 

0084 


IF (NCI. EQ.OI GO TO 625 

0085 ■ 


IF (MS.E0.4) GO TO 622 

0086 


IF (VEHIHS+1,1). EQ.OI GO TO 622 

0087 


LI = VEHtMS+1,1) 

0088 


DO 626 MI=I,NCI 

0089 


DO 627 KY= 1,4 

0090 


IFINFHLIM1 l.NE.NFSfL'.KY) ) GO TO 627 

0091 


DO 628 KZ = 1,4 

0092 


IF (NFMUI MI) .EQ.NFSI LI ,KZ) ) GO TO 629 

0093’ 

628 

CONTINUE 

0094 

627 

CONTINUE 

0095 


CO TO 626 

0096 

629 

RINTYRIHI.K) = RINTYRI HI ,K ) + YRLM(J)*X 

0097 

626 

CONTINUE 

0098 

625 

CONTINUE , 

0099 

622 

CONTINUE 

0100 


IFINCI. EQ.O) GD TO 9001 

0101 


OD 691 1=1, NCI 

0102 


DO 691 J=1 ,MYR5 


00 22 

0023 

0024 

0025 


0026 

0027 

0028 

0029 

0030 

0031 
00 32 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 
00 56 

0057 

0058 

0059 

0060 
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0103 


0104 

0105 

0106 

0107 

0108 


0109 

0110 
Oil! 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 - 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 


0136 
FORTRAN 

0137 

0138 

0139 

0140 

0141 
0142, 
0143 
0144- 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 ' 

0154 

0155 

0156 

0157 

0158 

0159 . 

0160 
- 0161 


0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


691 1F|RINTYR!I,J).LT'..001I RINTYRII.J) =RINTHXtI*J> 

C CHECK NUMBER OF LAUNCHES CALCULATED VS. NUMBER OF LAUNCHES USED IN LAST 
f ITERATION 

9001 1F(LCK.FQ.O.DR.MOS.E0.1.UR.MOS.E0.3) GO TO 4100 
DO 676 K = 1.2 
DO 676 J * l.MYRS 
DO 676 1 = l.NSTG 

IFIABSI STGYTR1 I ,J,K1 - STGMAXl I ,J»K> > .GT.O. 00 1 . AND.STGYTR ( l.J.KI. 

1GT. 0.001. OR. ( IFLAG.LE. l.AND.NUUI.LT.O) ) GO TO 677 

676 CONTINUE 

4100 WR1TEI6.4101) 

4101 FORHAT I1H0.4X, 40HTHE OPTIMUM SOLUTION HAS BEEN DETERMINED) 

C 

678 CALL VEHRC 
C 

1FLAG = 0 

IFILOUT.EQ.O) RETURN 
DO 112 I = l.NUMD 
IF1K0UTI Il.EQ.O) GO TO 112 
LT = KOUT(I) 

SUST1 I ) = SAVSILT! 

112 CONTINUE 
RETURN 
C 

677 IFI IFLAG.LE. 3) GO TO 679 
WRITE! 6,8005) 

8005 FORMAT! 49H0MAXIMUM NUMBER OF ASSIGNMENT ITERATIONS EXCEEDED) 

GO TO 678 

C DETERMINE HARDWARE COSTS BY YEAR BASED ON LAST ITERATION 

679 DO 8013 I = l.NSTG 
KLUEt I) = 0 

DO 8014 J * l.HYRS 

IFISTGYTR<I,J,11.GT.0.01.0R.STGYTRII,J,'2).GT..01) KLUE(I) = 1 
8014 STGYHWI I , J). = STGYTR! I. J,1 ) + STGYTRI I , Ji2) 

IF1KLUE! I ).EQ.1> GO TO 8013 

DO 8016 J = l.MYRS 

STGYTR! l.J.l) = STGMAX ! I » J . 1 ) 

STGYTRI I, J, 2) = STGMAXI I ,J»2) 

8016 STGYHWII.JI = STGYTR ( I , J , 1 ) + STGYTRI I ,J,2) 

8013 CONTINUE 
C 

C ADD INITIAL REUSABLE PURCHASE PRICE TO DEV. COST OS 

672 IF! IPLAG.GT.l. OR. FINISH. GT . 1 ) GO TO 673 

IV g' LEVEL 1,' MOO 4 STGNMI DATE » 71084 - 16/52/21 PAGE 00 

NX = NSTG + 1 
DO 674 II » l.NX 
READ ( 5 , 5000 ) J.NX2. X3.X4.X5 
IF(J.EO.O) GO TO 6735 
IFUl.EO.l)' WRITE! 6.50031 
00 675 I = l.NSTG 
IFIJ.EO.KOOSini GO TO 6755 
675 CONTINUE 

WRITE! 6,5001 ) II 
IFLAG = 100 
GO TO 674 . 

6755 NOB (I) = NX2 
XLT ! I ) = X3 
TATI I) = X4 

IF(X5.GT..001) PLCTII) = ALOGI X51/AL0GI 2. ) 

IFCXS.LE..001) • PLCTII1 = 0.0 

WRITE! 6,5002) J.l.NUII ) .UPPI1 ) .NOB! I ) , XLT ( I ) ,TAT( I ) .PLCTII) 

674 CONTINUE 

6735 IFIIFLAG.E0.1001 RETURN 

673 K * 0 

DO 710 I = l.NSTG 

IFHNUI D.EQ.O) .OR. (IFLAG. GE.l. AND. NU( 1 l.GE.O) ) GO TO 710 
IFI IFLAG. EO.O) GO TO 709 
NOS I I ) = NUII) 

11= l 

C ITERATES ON INITIAL QUANTITY TO BE PURCHASED 
C 

CALL REUSEI 
C 

709 NI = MAS (1,1) 

IFINUIl I.LT.O) LCK = 1 
X = NU(I) 

IFIX.LT.O) X = -X 
Y = NUSII) 

DSIN1) = OS IN I ) + IX+YI * UPPll) 

IFIK.EQ.O) WRITE (6,211) 

K = 1 

WRITE I 6, 208) NI.DS(NI), STS1 1 ) . STGI 1 1 »NYD(NI ) , LYDINI) 

WRITE (6,209) X 

710 CONTINUE 

C MAKE ADJUSTMENT FOR BATCHING OVER YEARS 

DO 663 I = l.NSTG 
IF (NBYUI.EO.il GO TO 663 
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0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 
0187 
0138 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 


0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

FORTRAN 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 
Q244 
0’24S 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 


IA = 2 
IB = NBY! I ) 

IC = 1 

666 DO 664 J= I A, IB 

IF (J.GT.MYRS) GO TO 700 
664 STGYKVHI.IC) = STGYHWU.IC) + STGYHWtI.J) 

700 DO 667 J = IA.IB . 

IF (J.GT.MYRS) GO TO 663 

667 STGYHW t I » J ) = STGYHWU.IC) 

IA = I A 4 NBYI I ) 

18 = 18 + NBYI1) 

IC = IC + NBYI 1 1 
GO TO 666 
663 CONTINUE 

1F1 IFLAG.EO.O) GO TO 9006 
00 9005 I = It NSTG 
IFIKLUE1I ) .EO.O) GO TO 9005 
DO 9002 J = l.HYRS 

IFISTGYTRt I, J,1).LT..01I STGYTR1 I ,J,1) = STGMAXII.J.l) 

IF (STGYTRII,J,2).LT..01) STGYTRI I , J,2I « STGMAX(I,J,2) 

IFISTGYKW! 1 ,J ) .LT..01) STGYHW ( 1 f J 1 = STGYTRII t J » 1 1+STGYTRtl , J t2 ) 

5002 CONTINUE 

9005 CONTINUE 

9006 DO 9007 K = lt2 

DO 9007 J = l.HYRS 

00 9007 I = l.NSTG 

9007 NTGYTRU.J.K) = STGYTR ( 1 t J .K> *10.0 
IF ( NCI .EO. 0 1 GO TO 9009 

DO 9008 J = l.HYRS 
DO 9008 I = 1 .NCI 

9008 NINTYRII.J) = R INT YR 1 1 , J ) *10. 0 
C 

C DETERHINE VEHICLE RECURRING COSTS BY YEAR AND LAUNCH SITE 

9009 DO 632 I=1»NV 
DO 635 J=1,HYRS 
RECUR! 1 . J. 1 ) = 0.0 

635 RECUR! I, J, 2) = 0.0 

00 633 MS = 1.4 
K = VEHIHS.Il 

IF (K.EO.O) GO TO 632 
9004 DO 634 J= l.HYRS 

IF ISTGYHHIK.J) .LT. 0.001) GO TO 634 ' . 

I F (MODE !K,1 ) . NE .0 ) GO TO 8015 

IV G LEVEL L, MUD 4 STGNMI . DATE = 71084 16/52/21 PAGE 00 

HOUR = SR(K,1)*STGYHW(K,J>**PLC(K,1> 

GO TO 8010 
8015 LX = MODE ( K . 1 ) 

IF l STGYHW I K , J ) . LE . POJ I LX ) ) HDWR = SR J ( LX, 1) /STGYHW! X ,J ) 

IF(STGYHW(K,J).GT.POJ!LX)> HDWR = SRJ ( LX.21+SRJ! LX, 3 ) /STGYHW1K, J ) 

8010 DO ’692 L = 1,2 
IF(STGYTR|K,J,L).LT..001> GO TO 692 
H = L + 1 

IF(MODEIK.M).NE.O) GO TO 8011 

RECUR ( I » J, L)=RECURI I , J, L I+HDWR+SR! K»H) 4STGYTRIK, J,L ) **PLC (K ,H) 

GO TO 692 

8011 LX * MODE! K, M ) 

1F(STGYTR(K,J , L ) .LE.POJ! LX ) ) RECURIl.J ,L) = RECURU.J ,LI 

1 + SRJ! LX,1)/STGYTR! K, J ,L> + HDWR 

IF ( STGYTRI K . J ,L) .GT.POJ(LX) ) RECURIl.J ,L) = RECURtl.J ,L> + 

1 SRJILX.2) + SRJ ( LX, 3)/STGYTR!K, J ,L) + HDWR 

692 CONTINUE 
634 CONTINUE 

IFINCI .EO.O) GO TO 633 
IF I MS.E0.4) GO TO 632 
IFIVEHIHS+I.D.EQ.O) GO TO 632 
K1 = VEH{ HS+ 1,1) 

DO 636 L= 1 ,NC I . ' 

DO 637 KY=1,4 

IF INFNLIL) .NE.NFS(K,KY)T GO TO 637 
00 638 K2 = 1,4 

IF (NFMU(L).EO.NFS(Kl.KZ)) GO TO 639 

638 CONTINUE 
637 CONTINUE 

GO TO 636 

639 DO 640 J = l.MYRS 

IF I R INTYR (L,J)*LT». 0001 ) GO TO 640 
HDWR = RINT!L)*RINTYR!L,J)**PLCINT!L) 

RECURIl.J, 1) = RECURIl.J, 1) + HDWR 
RECURIl.J, 2) = RECURIl.J. 2) + HDWR 

640 CONTINUE 

636 CONTINUE 
633 CONTINUE 
632 CONTINUE 

99 RETURN ' • 

208 FORMAT 1 14 , 6X ,2F12.2 ,5 X, A4, IX , 14HSTAGE HARDWARE ,29X , I3.9X, 1 3) 

209 FORMAT I6X, 27HNUMBER OF UNITS PURCHASED =, FS.l) 

211 FORMAT I33H1CHANGED QUANTITIES BRANCHED UP0N/1H0.6HNUHBER, 5X, 
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0258 

0259 

0260 
0261 

0262 


FORTRAN 


TOTAL 


1 11 HDEVELOPHENT • 2X, 10HSUSTAINING, 50X, 10HYEAR AVAIL, 2X, 

2 9HLAST YEAR//) 

5000 FORMAT t 12, 2X , 12 ,2F6. 1 ,F6. 3) 

5001 FORMAT I45HOKODE NUMBER INCORRECT ON REUSABLE STAGE CARD, 16) 

5002 FORMAT 114,16, 18, F10.1, 16, Fll.O, F10.0, F8.2) 

5003 FORMAT (22H1 REUSABLE STAGE DATA//5H K0DE,3X,5H0RDER,3X,5HUN1TS, 
2 3X,5HPR1CE,3X,4HTYPE,3X,8HLIFETIME,3X»7HTA T1ME,3X,2HLC) 

END 


IV G LEVEL 1, MOD 4 . STGNMt DATE » 71084 16/52/21 


PAGE 00 


MEHORY REQUIREMENTS 002328 BYTES 
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F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, HAP 


I EH 0000 

VARIABLE OPTIONS USED - SIZE*! 126976,24576) 
NAME MOX02SM(R) 

'EW0461 

ITEM 

EH 0461 

I8C0M= 

•EH0461 

VEHRC 

I EH 0461 

REUSE! 

IEH0461 

FRXPR* 

I EH 0461 

ALOG 


DEFAULT OPTION(S) USED 


CONTROL 

SECTION 


ENTRY 

NAME 

ORIGIN 

LENGTH 

NAME 

STGNMI 

00 

2328 


SAVSAR 

2328 

A58 


SAVE1 

2080 

FC4 


SAV3 

3D48 

980 


SAV4 

46C8 

3188 


SAVALL 

7850 

3A1C 


TEMP 

B270 

4110 


SCRACH 

F380 

6A60 



HOOULE MAP 


LOCATION NAME LOCATION ' NAME LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH 15DE0 

****MOX02SM NOW REPLACED IN DATA SET 


DIAGNOSTIC HESSAGE DIRECTORY 


IEH0461 HARMING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL HAS SPECIFIED. 


FORTRAN IV G LEVEL I, MOD 4 TCOSTS DATE = 71084 16/53/01 


0001 


0002 

0003 

t ooo4 

' 0005 
0006 


0007 ' 

0008 

0009 


0010 


0011 

0012 


0013 

0014 


0015 

0016. 

0017 

0018 

0019 

0020 


C 

c 


c 


SUBROUTINE TCOSTS ( BLANK, ASTR) 
CALCULATE TOTAL COSTS - 


DOUBLE PRECISION NAME 
LOGICAL SKIP, EXT, ACCL 
REAL NPERPD 
INTEGER H , PROG 

INTEGERS LTR,YDPL,NSYR ,NSFX,NRFX,NYRSST,NSTRFX,NPROG,KPROG,KODE, 
1 NYRSFX,KODEM,KODESP,VEH,NMULT,NONREC,NYO,IS,MAT,LYR,L£TT,LYD,MIN 

2,FINISH,NSTG,NFML,NFMU,K0DS,MAS,LABS,LABF,LABI 
COMMON/ S A VRT /RVAR! 20, 50) 

COMMON/ VAR NCE/KST AT , VAR I (401,VARFI50J ,VARM(56) , FMVAR ( 2 , 30 1 , 

1 FI VAR (3, 40), PL VAR (3, 56) ,S VAR I 5,40) 

COMMON/ SAVE 1/ FINISH,NSTG,NCI, !LY,LABF(30] , LABS (40) , LAB 1 1 40 1, 

1 NFML l 40 ) ,NFMU 140) , KODS (40),STS(41),STG!40),VLR(50),HPR(50), 

2 RPLMI 50) ,MASI40,3) , RXD(12,50) 

COMMON/ SAVALL/LCK,SLO,NM,NEXD, NV,NUMD,MYRS ,LZ0PT(8)tNY0I46),MATI46 
1) .SUSTI46) .DSI46) ,LYD(46) ,Y0I46),IS( 102) ,LYRI252) ,LETT(250) , 

2 MINI 250) ,YRLM< 250) , VEHt 4,60), NONRECI 120,20) ,NMULTI 60,50) 
COMMON/SAVER/ RFIX0I12,84) - 

C0MM0N/SAV2/EXT,ACCL,KNSTG,KNFAM,KNCI,KNP,KNM1S,JFLAG,TREF,NCSTR, 

1 PMAXfPMIN, ISTRT, I FIN,HAXI TR,MITR,KODESP I 6} , TI TLE ( 10) .LEVEL (20) , 

2 CNTRVL 120), FIXED! 20 ) , KQOEHI SO ) ,NSYR( 50) , NSF XI 50 ) , NAME I 56 ) , 

3 YDPLI56) tNRFXISO) ,NYRSST(84) ,NSTRFX(84) ,NYRSFX(84) ,SUS I 84 ) ,C I 84 ) 

4, RI84), S I 84 ) ,C5 ( 90 ) ,NPROG(90 I .KPROGI 90) , K0DEI90) 

COMMON/ SAV3/GR0, GUESS, LP,NS0L ,MSOL,NP,MOS ,NMIS ,NSPR,NPERPDI30 ) , 

1 PAD! 30 ) , LTRI50) ,PLR( 50 ) , RDISTI 56 ,4) , ALP 1 1 4, 60) 
COMMUN/SCRACH/M,N,NCS, PROG, I0DD, I ERR ,SK] P.MYFLAG, JS , NSC ALE 1 5 ) , 

1 NSLt 10) .TOTAL! 20) ,H<20) ,DI 20) ,XOUT( 20) , VOUT 1 20) , RRR ( 20) .YEAR (20) 
2, Y< 20) ,KVEH Ft 50 ) .LABEL! 50) , LVAR Y( 70) ,L VOI 70) , I VEH! 70) ,LVS(70> , 
LVSF I 8 0) , VNAM! 80) , NOP (86) ,RF(86) ,CF(86) ,$F! 86) ,FLAGRf86) , 

FLAGS (86) ,NSSF(86) ,NSRF(S6> ,NSXF ( 86 ) ,NDSF( 86 ) , SUSTFI 86) .NLVPI86) 
NSTRRC ( 86 ) .NYRSRC! 86 ) ,LNDF( 66) ,NSTRST!86), LNDATEI 86),NPR0!90), 

K PRO (90 1 , CSX (90) ,LZ!46) ,RCOST( 60), KVEKI 60) , IMAGE! 830 ) , 

XSCHI 10,70 ) fXLVSUM! 20,50) , RECUR! 20,50 ) ,DUM( 360) ,XMODE( 20) ,UB(20) 
8, VTC(20),0UMMY(236) ’ 


00 55 I = 1,20 
55 VTC(I) = 0.0 
JS= 0 

DO 70 L=1,N 
FLAG = 0. 

T = 1.0 


NAME 


PAGE 00 ' 
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FOR f RAN 

0021 
00 22 

0023 

0024 

0025 

0026 
0027 
00 28 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

FORTRAN 

0059 


0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 
00 75 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0008 

0089 

0090 

0091 

0092 

0093 

0094 


IV G LEVfcL 1, MOO 4 TCOSTS DATE = 71084 16/53/01 PAGE 00 

AYRS » R ( L ) ♦ 1.0 
IFIL.LE.NMIS + NSPR) GO TO 30 
NDUM = L - NM1S - NSPR 
LX = LABEL(NDUM) 

JX = MAT f LX J 

IFf JX.GT.1000) JX = JX - 2000 

30 DO 60 K= 1 ♦ 20 
F = 0. 

IT = T - SI LI + TREF 
X = (T - SIL) + TREF) / AYRS 

C X.LE.O PROGRAM DEV. HASN'T STARTED YET - X.GE.l PROGRAM OEV. IS OVER 
IF (X.LE.O.) GO TO 59 
IF (X.GE.l.) GO TO 56 
C bETA DISTRIBUTION FOR CIL) 

F = I I X*( l.-X ) )P*2 ) * 30. 4 CIL) / AYRS 
IFIKSTAT. EQ. 0. OR. SKIP. OR. F.LT. .00011 GO TO 56 
IFIL.LE.NMIS + NSPR) GO TO 31 
I FI JX .LT .—200 ) GO TO 56 
IFI JX.LT.-lOO) GO TO 41 
1FIJX.LT.0) GO TO 42 

IFISVARI4, JX) .GT..001 ) VTCIK) = VTCIK) + F*F*t EXPI SVARI 4* JX ) I - 

1 1 . 0 ) 

GO TO 56 

41 KX = -JX - 100 

IFIFIVARI2.KX1.GT.. 001) . VTCIK) * VTCIK) + 

1 F*F4IEXPIFtVAR( 2.KX )) - 1.0) 

GO TO 56 

42 KX = - JX 

’ IFIFMVARU, KX) .GT. .001) VTCIK) = VTCIK) + F*F* 

1 (EXPI FMVARI 1, KX)) - 1.0) 

GO TO 56 

31 1FIPLVARI2.L). LT . • 0001 ) . GO TO 56 
TTSR = F#F4( EXP I PLVAR 12. L) ) - 1.0) 

VTCIK) = VTCIK) + TTSR 

56 IF INYRSSTID.EO.O) GO TO 57 
I = IT - NSTRST(L') 

I F I I . LT. O.OR. I . GE.NVRSSTI L ) ) GOTO 57 
F -= F + SUSIL) 

IFIKSTAT. EO.O. OR. SK1P.0R. SUSIL) .LT.. 0001) GO TO 57 

IFIL.LE.NMIS + NSPR] GO TO 32 

IFI JX.LT.-200) GO TO 57 

IFIJX.LT. -1001 GO TO 43 

IFIJX.LT. 01 GO TO 44 


IV G LEVFL 1, MOD 4 TCOSTS DATE = 71084 16/53/01 PAGE 00 


IFISVARI5.JX1.GT.. 001) VTCIK) = VTCIK) + SUS I L >*SUS( L >* 

1 (EXPISVARI5.JX) ) - 1.0) 

GO TO, 57 

43 KX = -JX -ICO 

I F I FI VAR! 3. KX ).GT..001I VTCIK) * VTCIK) + 

■ 1 SUS(L)*SUSIL>*IEXP,1F1VAR(3, KX )) - 1.0) 

GO TD 57 

44 KX = -JX 


IF I FMVARI 2 . KX).GT..001) VTCIK) = VTCIK) + 

1 SUS IL)*SUS(L)4(EXPI FMVAR I 2. KX)) - 1.0) 

GO TO 57 

32 IF(PLVARI3,L).LT..0001> GO TO 57 

TTSR = SUSIL)4SUS(L)*(EXP(PLVAR(3,L))- - 1.0) 

VTCIK) = VTCIK) + TTSR 

57 IF INYRSRCIL) .EQ.O) GO TO 58 
I = IT - NSTRRCIL) 

I F I I . LT • O.OR • I .GE.NYRSRC ( L I ) GO TO 58 
F = F + RECUR I l + l , L ) 

IFIKSTAT. EO.O. OR. SKIP. OR. RECUR! !+liL(.LT.. 01) GO TO 58 

VTCIK) = VTCIK) + RECURIl+ltL)»RSCUR( 1 + 1 ,L) *1 EXPI RVARI I+i,L) ) 

1 - 1 . 0 ) 

58 IF INYRSFXIL) .EQ.O) GO TO 59 
I = IT - NSTRFXI L) 

IFII.LT.O.OR.I.GE.NYRSFXILI) GO to 59 
F = F + RFIXDt I + 1.L-) 

IFIKSTAT. EO.O. OR. SKIP. OR .RF IXD 11+ 1, L'> .LT.. 0001) GO TO 59 
IFIL.LE.NMIS + NSPR) GO TO 39 
IFIJX.LT. -200) GO TO 59 
IFI JX.LT.-lOO) GO TO 37 
IFIJX.LT. 0) GO TO 35 
LXX = LABStJX) 

IFIVARFILXXI.GT.,001) VTCIK) 
l RFIXOI I+l,L)4IEXP( VARFILXX) ) - 1.0) 

GO TO. 59 

35 LXX = LA8FI-JX) 

IFIVARFILXX) .GT..001) VTCIK) 

1 RFIXDII+l,L)*IEXPI VARFILXX)) 

GO TO 59 

37 LXX = LABK-JX - 100) 

IFIVARFILXX). GT.. 001) VTCIK) 

1 RFIXOI I+1,L)*IEXP( VARFILXX)) 

GO TO 59 

39 1FIVARMI L) .GT..001) VTCIK) = VTCIK) 


VTCIK) + RFIXDII + UD* 


VTCIK) 

1 . 0 ) 


VTCIK) 

1 . 0 ) 


+ RFIXOI I+1,L)* 


+ RFIXDI 1 + 1,04 


RFIXOI I+1,L)4RF|XD< I+1,L)» 
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FORTRAN 


0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
0109 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 
0113 
0119 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
0123 
0129 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
0139 


FORTRAN 

0135 

0136 

0137 

0138 

0139 

0190 

0191 

0192 

0193 
0199 

0195 

0196 

0197 

0198 

0199 

0150 

0151 

0152 

0153 
0159 

0155 

0156 

0157 

0158 


IV 6 LEVEL 1, MUD 9 TCOSTS OATE = 71089 16/53/01 PAGE 00 

1 (EXP!VARM(L) ) - 1.0) 

59 OIK! = F 

C H(K) ! S TOTAL COST IN YEAR K 

W(K> = WIK) + D(K)*!GRO +1.)**!K-1) 

JF !OIKI.EO.O..ANO.FLAG.EQ.l.) GO TO 65 
IF (D(K).NE.O.) FLAG = 1. 

60 T = T + 1.0 
K - 2 1 

65 K = K-l 

JS = MAXO (JS,K) 

IF (SKIP) GO TO 70 
IFIL.LF.NMIS+NSPR) 

WRITE (6,98) L,NAME(L),(0!I),I=1,K> 

1FIL.GT.NMIS+NSPR) WRITE(6,89) L, LABEL! NDUM ) ? ( D( I), 1=1, K ) 

IF (NLVPI Ll.EO.O) GO TO 70 
IJ = NLVPIL) 

H = LVARY(L) 

DO 69 11=1, IJ 
00 67 1=1,20 
XOUTI I ) = BLANK 

67 VOUT(l) = BLANK 
XSUB = LVStH! 

!A = S(L) - TREF * XSUB 
IB * IA+LVDIHl-l 
00 68 I=IA, IB 
IF (I .LT.l) GO TO 68 
IF (I.GT.20) GO TO 68 
IC = I-IA+l 
XOUTI I) = ASTR 
VOUT(I) =VNAH(H) 

KK = IVEH(H) 

I L V = KVEH(KK) 

XLVSUMI I , ILV) = XLVSUM! 1 , ILV) + XSCHlIC.HI 

68 CONTINUE 

WRITE (6,901) ( VOUTI I), XOUTI I) , 1=1, K) 

69 H = H + 1 

70 CONTINUE 

DO 75 1=1, JS 

VTcm = vtcu)*(i.o + gro>**(2*ii-i>> 

75 TOTAL! I ) = WII) + FIXED! 1 1 

IFIKSTAT.EO.O.OR.SKIP) RETURN 

00 80 I = l.JS 

IF(W( I ) .LT..0001) GO TO 79 


IV G LEVEL 1, HOD 9 TCOSTS DATE = 71089 ' 16/53/01 PAGE 00 

IFIVTCI D.LT..01)' GO TO 78 

SIG = ALOG( W ( I ) =W ( I ) + VTC(I)) - AL0G1 W( 1 1*W( 1 1 ) 

TP = SORT (SIG) 

XHODEII) = W ! I I* (EXP( -l.5*S IG1 1 
XMU = ALOGIW Till - • 5*S IG 
XMD = (ALOGtXMODEI 111 - XMU) /TP 
CALL NOTR ( XMO, P2,D0) 

P2 = P2 + .5 

CALL NOTR I (P2,Y2,DD,IE) 

UB(I) = EXPITP6Y2 + XHU) 

XMODE(I) = XMOOE ( I ) + FIXED! I) 

UB ( 1 ) = UBI I) + FIXED! I ) 

GO TO 80 

73 XMODE(I) = TOTAL! I) 

UB! I J = TOTAL! 1 ) 

GO TO 80 

79 XMODE(I) = 0.0 
UB! I) = 0.0 

80 CONTINUE 
RETURN 

89 FORMAT ! 1 3, 1X,4HDEV ,I2,20F6.0) 

98 FORMAT ( I3,1X,A6,20F6.0) 

901 FORMAT I 11X,20( A9,A2) ) 

END 
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FORTRAN IV G LEVEL 1, MOD 4 


TCOSTS 


OATE = 71084 


16/53/01 


PAGE 00 


TOTAL HEMGRY REQUIREMENTS 0016E6 BYTES 


F 88-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST, NCAL, MAP 

VARIA8LE OPTIONS USED - SIZE=( 126976,24576) DEFAULT OPTIONIS) USED . 

1EWOOOO NAME M0X02TCIR) ' . • 

IEW0461 FRXPI= 

I EW0461 I 0COH= 

IEW0461 NDTR 
I EH0461 NDTRI 
IEW0461 EXP 
IEW0461 MAXO 
IEM0461 ALOG 
IEH0461 SORT 


CONTROL SECTION 


NAME 

ORIGIN 

LENGTH 

TCOSTS 

00 

16E6 

SAVRT 

I6E8 

FAO 

VARNCE 

2688 

ADC 

SAVE 1 

3168 

FC4 

SAVALL 

4130 

3A1C 

SAVER 

7650 

FCO 

SAV2 

8B1 0 

FEO 

SAV3 

9AF0 

980 

SCRACH 

A470 

6A60 


MODULE MAP 

ENTRY 

NAME LOCATION NAME" 


LOCATION NAME LOCATION 


ENTRY ADDRESS 00 

TOTAL LENGTH 10ED0 


****M0X02TC NOW REPLACED IN DATA SET 


DIAGNOSTIC MESSAGE DIRECTORY 


IEW0461 WARNING - SYMBOL PRINTED IS AN UNRESOLVED EXTERNAL REFERENCE, NCAL WAS SPECIFIED. 


NAME 
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(17) 


OS/360 FORTRAN H 


DATE 71.084/16.53.36 


' 1SN 

ISN 

1SN 

ISN 

1 SN 


ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 

ISN 


COMPILER OPTIONS - NAME* MAIN,0PT=02,LINECNT=44, SOURCE, BCD, NOL 1ST, NODECK. LOAD, NOMAP, NOEDIT, ID, NO 
0002 SUBROUTINE VEHRC 

C DETERMINE 'AVERAGE 1 RECURRING COST OF EACH VEHICLE 
C 


0003 

0004 

0005 

0006 


0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 
0016 

0017 

0018 
0019 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 
0D29 

0030 

0031 

0032 
00 33 

0035 

0036 


REAL NPERPD 

INTEGERS VEH,NMULT,NONREC,NYD,IS,MAT,LYR,LETT,LYD,MlN,KOUT, 

1 NINTYR,NTGYTR, LTR 

C0MM0N/SAV3/GR0, GUESS, LP,NSOL,MSOL,NP,MOS,NMIS,NSPR, NPERPD! 30) « 

1 PADI30) .LTRI50) , PLR I 50) , RDI ST! 56,4) ,ALP1{4,60) 
COMMON/SAVALL/LCK,SLO,NM,NEXD,NV,NUMD,MYRS,LZQPTI8) ,NY0<46) ,HAT<46 

1) ,SUST(46),DSI46l,LYDI 46) , YD( 46) , ISt 102) , LYR I 252 1 .LETT! 250) » 

2 MIN(250),YRLM1250).VEHl4,6O),N0NRECC120,20),NMULT(60,50) , 
C0MM0N/TEMP/VNM(2,250> , I FLAG.KI ,NEXT,LOUT, SAVS140) ,K0UT140), 

1 N I NT YR 1 40 * 20 ) ,NTG YTR ( 40, 20, 2 ) ,RECURt60,20,2) 

COMMON/SCRACH/ VYTRt 20, 120) , DUHMt 102 ) , RC0ST1 60) ,0UM(4246> 

C COUNT NUMBER OF EACH VEHICLE USED BY YEAR AND TEST RANGE 
NV2 = 2*NV 
DO 8032 I = 1,NV2 
DO 8032 J = 1 ,MYR5 

8032 VYTR I J , I ) = 0.0 
DO 8033 L = 1,NM 

IFCYRLMI L) .LT..0001) GO TO 8033 
11= MINtLI 
M = LETTIL) 

I = II 

IF( LTRtM) .EQ.Z) I = II £ NV 
X = NKULTI I 1,H) 

J = LYRIL) 

VYTRIJ.I) = VYTR(J.I) C YRLrtIL )*X 

8033 CONTINUE 

C DETERMINE 'AVERAGE' RECURRING COST OF EACH VEHICLE 
DO 8034 I * 1 »NV 
RCOST ( I ) = 0.0 
TVEH = 0.0 

II = I 6 NV 

DO 8035 J = l.HYRS 

RCOST ( I ) = RCOST(I) £ VYTRI J , I )*RECUR( I , J, 11 £ VYTR(J,I1>* 

1 RECUR 1 1 , J , 2 ) 

TVEH = TVEH £ VYTR(J,1> £ VYTRtJ.Il) 

8035 CONTINUE 

I F ( TVEH. LT. .0001 ) GO TO 8034' 

RCOSTII) = RCOST! I) /TVEH 

8034 CONTINUE 


ISN 0037 99 RETURN 

ISN 0038 END 


****** END OF COMPILATION ****** 
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F.88— LEVEL LINKAGE EDITOR OPTIONS SPECIFIED LIST. XAEF, MAP, NCAL 

VARIABLE OPTIONS USED - SI ZE=< 126976,24576) OEFAULT OPTION(S) USED 

IEWOOOO NAHE K0X02VCIR) 


CROSS REFERENCE TABLE 


CONTROL 

SECTION 


ENTRY 







NAHE 

ORIGIN 

LENGTH 

NAHE 

LOCATION 

NAHE 

LOCATION 

NAHE 

LOCATION 

NAHE 

VEHRC 

SAV3 

SAVALL 

TEMP 

SCRACH 

00 

3D0 

D50 

4770 

8880 

3CE 

080 

3A1C 

AllO 

6A60 









LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

LOCATION 

REFERS TO SYMBOL 

IN CONTROL SECTION 

EO 

SAV3 

SAV3 

E4 

SAVALL 

SAVALL 

E8 

SAVALL 

SAVALL 

EC 

TEMP 

TEMP 

FO 

SCRACH 

SCRACH 

F4 

SCRACH 

SCRACH 


ENTRY ADDRESS 00 

TOTAL LENGTH F2E0 

*e**M0X02VC NOH REPLACED IN DATA SET 
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